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ss-3 ri Page 
MASTER: CMOM. SRC JMOMTEST.B832; 1 (1) 


SS 


X=-11 
SKSVM 
1 ZTITLE "MOM Loop Test Routines’ 


MODULE MOMTEST ( 
LANGUAGE (BLISS3 


Oooo 
Ooo 


wr 


; 1 : 
: ‘ 2) ; 
ae 0 ADDRESSING_MODE (NONEXTERNAL=GENERAL), : 
$ 5 5 ADDRESSING MODE (EXTERNAL=GENERAL), F 
: § BR {DENT = 'v04-000' : 
ee Be 3 
: 19 Ba19 : leeaeeueeecreeeeeeeerenteneterterererterteetententnnntnnntentnnnnenenenentts : 
; .* * : 
3 \3 018 1 !* COPYRIGHT (c) 1978, 1980, 1982, 1984 BY * : 
;.% 15 1 '* DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. * : 
: \% bore : - ALL RIGHTS RESERVED. : : 
: 16 Bot8 1 is THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * ; 
. 17 1 1 !* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * : 
; 18 0018 1 !* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHE * ° 
3 19 0019 1 !* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * ; 
: 20 0020 1 !* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * : 
; $3 8 1 } :* TRANSFERRED. ® ‘ 
° . ® ° 
; $¢ 00 : 1 !* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * . 
; 24 0024 1 !* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT ' e 
: 36 oS 5 : i CORPORATION. . : 
: 7 00 $ 1 i DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * ; 
; $8 eB : ! i: SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. ; ; 
; $8 0030 1 is * ; 
3 rf +4 1 1 J CtedeeensenencarenaeesneeseeLeneeneeneneenenteneeNeneTeneenetesenensageesete : 
: 5 008s | : 
; $0 kes 1 f+ : 
; ¥4 BB 2 ; : FACILITY: DECnet-VAX Network Management Maintenance Operations Module (MOM) : 
: s 3 i ABSTRACT: : 
: 9 $0 9 1 This routine contains routines to process NCP LOOP NODE and LINE F 
; 29 BRe0 : command messages. : 
i 48 0042 1 | ENVIRONMENT: VAX/VMS Operating Systen : 
i. 44 44 1 { AUTHOR: Kathy Perko 3 
i 46 046 1 | CREATION DATE: 9-Jan-1983 : 
> 48 0048 | i MODIFIED BY: ; 
; | «(649 9 13 V03-006 MKP0096 Kathy Perko 2-July-1984 : 
: 0 7. 3% Fix LOOP CIRCUIT on poiny~toreotns circuits so that e : 
3 1 -) ee after getting the first invalid OC message (to synchronize : 
: § 26 : with the target), to skip over all subsequent OC messages. : 
: 24 54 1 v03-005 MKP0005 Kathy Perko 5-June-1984 : 
: 55 2? ! Allow LOOP NODE to work if the node is specified by number. : 
: 3$ 0 3§ 1 V03-004 MKP0004 Kathy Perko 29-April-1984 : 


tO we a ts ss ss 


ROM Loop Test Routines iis Bpn1984 VSi4nss? — DTSKSVMEMASTERSCMOM SRC MOMTEST.B32:1°9 
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When Looping a circuit in the Ethernet, make sure the 
HELP NI address is not alternated by MOMSM MOPSNDRCV. This 
2 because the loop message should be rebuilt to match 

he NI address being alternated. That must be done outside 
MOMSMOPSNDRCV V. 


v03-003 MKP0003 y Perko een donn1906 
Fix LOOP NODE so “ir berks with access control. 
Add function code parameter to calls to MOMSINET CIB. 


V03-002 MKPO0O Kathy Perko ote c-1983 
If mapping a loop error I don't eg peg return whatever 
hetuer Management completion code caller gave me, instead 
of returning ‘Management Program Error’. 


v03-001 MKP0001 athy Perko 66-May-1983 
Fix DMC Loop etranie” Fix loop Line. 
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Yoe~000 Declarations gep-19 4 95: 12: 7 Disk $v mt TER: chon’ she MOMTEST.B32; a9 (2) v0 
; 44 ! ZSBTTL ‘Declarations’ 
: BI 1! 
; § : TABLE OF CONTENTS: 
; 1 
3 5 1 FORWARD ROUTINE 
: § 1 mom$tes NOVALUE, 
: 1 mom$activeloop VALUE, 
3 8 1 mom_bu Ld_ Loop_bufs NOVALUE, 
3 34 1 momspassiveloop OVALUE, 
: 1 mom$loop_ Line OVALUE, 
; «91 1 mom$nodetest NOVALUE, 
3 35 1 mom$initbuf fer NOVALUE, 
. F 1 mee Fars at bbl 
$ 94 1 monzget buffer, 
; 1 mom$freebuffer, 
; 1 mongers tk : NOVALUE, 
3s 6" 1 mom_bldloopnfb : NOVALUE, 
s 1 mom_maplooperr : NOVALUE, 
; 1 mom_siglooperr : NOVALUE, 
3; 100 1 mom$saveuser, 
3; ©6101 100 1 mom$savepasswrd, 
3 196 101 1 mom$saveacct 
; 10 138 1 mom$lLoophandler, 
: 104 103 1 mom$testhandler; 
; 105 0104 1 
: 106 0105 1! 
s Tor 01 1 ! INCLUDE FILES: 
; 108 0107 1! 
; 109 0108 1 
s 110 0109 1 LIBRARY ‘'LIB$:MOMLIB.L32'; 
s 44 0110 1 LIBRARY ‘SHRLIB$:NMALIBRY Lge": 
i 18 Q111 1 LIBRARY 'SHRLIBS:EVCDEF .L 32"; 
. $8 O11g 1 LIBRARY 'SHRLIB$:NET.L32'; 
3 (114 11 1 LIBRARY ‘SYSSLIBRARY:LIB.L32'; !' Network ACP control Q10 interface 
Ne RET, 
. oy 11 1 ! EQUATED SYMBOLS: 
: 118 11 1! 
3; «119 118 #1 
; 120 119 1 LITERAL 
s 121 120 1 mbx_size = 40, 
| § 121 1 nfb_ “bulsize = 110; 
» 4 1 1 
: 126 1 1! 
s 25 124 1 ! OWN STORAGE: 
=. $ 125 1! 
Se 1 § 1 
: 128 1 1 
: 129 128 1 Loop_chan ! Loop Link channel 
: } : : , : Loop_ “mbxchan; ! Loop mailbox channel 
Th 4 131 1 
| 1 § 1 userdsc : VECTOR ‘ ' User id 
Ts 1 1 accountdsc : VECTOR ‘ ' Account 
: 355 0134 1 passworddsc : VECTOR ; ! Password 


K 1 
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1 


— 
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3a 
2 32 


L 
: 1 1 é 1! 
3 : ; ; NFB and P2 buffers and descriptors for loop Q10. 
: 140 139 OWN 
3 (161 140 1 nfbdsc : VECTOR e3° ! NFB for Loop Link 
; Hp 141 1 wbx but ter : VECTOR BYTE). ! Mailbox buffer 
: 14 146 1 nfb~buffer : VECTOR (nfo buts ze, BYTE], | NFB but fer 
3 6166 145 1 p2_buffer : VECTOR mom$k_p2_bu len, BYTEJ; ! P2 Q10 buffer 
: 10g 123 | BIND 
: 103 198 1 mom$q_nfb_buf_dsc = UPLIT (ZALLOCATION(nfb_buffer), nfb_buffer) 
; 148 147 #1 : VECTOR C2) 
: 149 148 1 mom$q_p2bfdsc = UPLIT CRALLOCATION(p2_buf fer), p2_buffer) 
: 150 149 1 : VECTOR C2]; 
: 483 By 
: 138 01532 : The following are for Phase 2 and Phase 3 differences. 
; 155 0134 10 
: 156 155 1 version; 
; 138 Eg i BIND 
: 159 0158 2 object25dsc = SASCID ('::''25=/", ZCHAR(0,0,0),' —_s 
: 6161 0160 2 objecti9dsc = SASCID (°::''19=/",ZCHAR(0,0,0),' af teas 
3 196 318) : : VECTOR (2); 
: 164 1 5 1! The ey data is used to manage buffers. Default buffers may be 
5 bE 198 : used or the buffers may be allocated from virtual memory. 
: 189 0166 1 LITERAL 
: 168 167 1 mom$k_defbufsize = 130, 
3 169 168 1 mom$k_maxmsgsize = 128; 
: int 199 : OWN 
: 178 171 1 mom$|_mop_chan, 
: 17 Hc 1 mom$\_assTst_mop_chan, 
: 174 173 (1 mom$\"vmbufsize LONG INITIAL (0), 
s 175 174 «1 mom$\_vm_buf_adr : LONG ‘yuo (0) 
: 17% 176 mom$t_testrcvbuf : VECTOR Cmom$k_defbufsize, BYTE); 
: 178 177 1! 
; 179 178 1 ! EXTERNAL REFERENCES: 
; 181 180 i ' 
: 18¢ 1 1 $Smom_externals; 
4 1 5 1 EXTERNAL 
: «185 1 1 mom$gq_netnamdsc, 
-% 185 1 mom$gq_dle_namdsc, 
: 187 1 i mom$gq_psinamdsc, 
% 1 1 mom$npa_test, 
eS 1 1 monenpa_test node_acc. 
: 13 : : mom$npa_cirloop; 
: 192 191 1 EXTERNAL LITERAL 
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—— 
wOO000 
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mom$chk “nope error, 
mom$debug_| -ni9. 
nonsdebug. qio, 


nonsget_ circuit type. 
mom$get_node_id, 
mongqet ryt Ber, 
mons log. event. 
acp_qio, 
mon$mapqiosrror, 
mom$mopopen 
mom$mopsetsubstate, 
$mo 
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LibSasn “ath “mbx : ADDRESSING_MODE (GENERAL); 
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ZSBTTL ‘mom$test ,oosneck test’ 
GLOBAL ROUTINE mom$test : NOVALUE = 


'e¢ 
' FUNCTIONAL DESCRIPTION: 
: This routine is yt when MOM receives a NICE LOOP command. 
ng is completed (it has already been parsed 
through the circuit, Line or node ID), and the routine to perform 


The NICE message pars 
the loop is called. 
i 


BEGIN 


mom$gb_option_byte: bblock (1); 


LOCAL 
nparse_table, 
lLoop_routine, 
status; 


i] 
Parse the remainder of the NICE command to get loop parameters. 


SELECTONEU -mom$gb_entity_code OF 


mom$c_ node, mom$c_nodebyname): 
BEGIN 
i If there is access control in the LOOP NODE command, use a 
different parsing table to get it from the NICE command. 
if _mom$gl_service. flags Cmom$v_loop_w_access_ctlJ 


nparse_table = mom$npa_test_node_acc 


nparse_table = mom$npa_test; 
Loop_rout ine = mom$nodetest; 


Cmom$c_Line]: 
BEGIN 
nparse_table = mom$npa_test; 
poon.fout ne = mom$Lloop_line; 


Cmom$c_ circuit): 
BEGIN 
nparse_table = mom$npa_cirloop; 
toop_réut ine = mom$activeloop; 


TES; 


ALL parsing errors will be signalled by the action routines so, if control 
returns here, the parsing was successful. 
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TEST MOM Loop Test Routines 16-Sep-1984 02:10: VAX=11 Bliss-32 V4.0-74 P 
yO0-800 monStest Loopback test 12286871382 95:12:98 DLSKSVMGMASTERS MOM. SRCSMOMTEST.B32;1° 9° (3 
; 277 75 nma$nparse (mom$ab_nparse_blk, .nparse_table); 
3 He 0376 ; C Loop_rout ine) 3 . ¢ . 
: ef 7 END; ! End of MOMSTEST 


-TITLE MOMTEST MOM Loop Test Routines 
“IDENT \VO4eOOON , 


«PSECT SPLITS,NOWRT ,NOEXE,2 


000 000 P.AAA: .LONG 110 ; 
90000" 90004 “ADDRESS NFB_BUFFER : 
8 P.AAB: <LONG 104 : 
20 20 20 20 20 00 F 3D 35 OBR SA OOOIO P.AAD: TASCHT Ne s"ESe/ Ke0><O><0>\ \ 
SRRRER RRS Me : 
0 20 00028 sASCIT. \ 'N ; 
0028 “BLKB 1 
90000018, OO0GC P.AAC: LONG 27 
900090* 90030 SADDRESS.P. AAD ; 
20 20 20 20 20 00 90 00 2F 3D 39 31 22 3A $A 00084 PLAAF: CASCII  \1'19=/\<O><0><0>\ \ ; 
0 20 20 20 20 20 20 20 20 00043 ; 
0 20 d004c ASCII \ 'N 
0004 “BLKB 
00000018 00050 P.AAE: LONG 27 : 
00000000" 00054 “ADDRESS. P.AAF ; 


.PSECT S$OWNS,NOEXE,2 
00000 LOOP_CHAN: 
00004 LOOP_MBXCHAN: 


-BLKB 
00008 USERDSC: .BLKB 
00010 ACCOUNTDSC: 


00018 PASSWORDDSC: 


~BLKB 
00020 NFBDSC: -BLKB 
00028 MBX_BUFFER: 


-BLKB 
00050 NFB_BUFFER: 
BLK 


b00c8 ot oureie 


-BLKB 
00128 VERSION: .BLKB 
0012C MOMSL_MOP_CHAN: 


-6LKB 
00130 NOMSL_ASSIST MOP 
00000000 00134 MOMSL_VMBUF SIZE 
00000000 00138 MOMSL_VM_BUF_ADR: 


0013C MOMST_TESTRCVBUF : 
-BLKB 130 


oo co ofr 


_ 
Oo 


CHAN: 


oN SF HS NF 


o 
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Ss 


MOM$Q_NFB BUF _DSC= P.AAA : 
MOM$Q BeBeDscé -AAB ; 
OBJECTESDSC= “AAC ; 
OBJECTI9DSC= P.AAE ; 
EXTRN MOMSGL -LOGMASK, MOMSGL_SVD_ INDEX ; 
EXTRN MOMSAB-SERVICE DAT : 
EXTRN MOM$GB-FUNCTION ; 
EXTRN MOM$GB-OPTION_BYTE : 
EXTRN MOMS$GB-ENTITY—CODE : 
EXTRN MOMSAB-ENTITY—BUF ; 
EXTRN MOM$GQ-ENTITY-BUF _DSC : 
EXTRN MOMSGL-SERVICE FLAGS : 
EXTRN MOMSAB-NPARSE BLK : 
EXTRN MOMSAB-NICE_RCV BUF ; 
EXTRN MOMSAB-NICE-XMIT_BUF : 
EXTRN MOMSGQ_NICE- RCV BUF DSC ; 
EXTRN MOMS$GL-NICE-RCV-MSG-LEN : 
EXTRN MOMSGQ_NICE-XMIT_BUF_DSC : 
EXTRN MOMSAB-MSGBLOCK ~ : 
EXTRN MOMSAB"ACPOIO_BUFFER ; 
EXTRN MOMSGQ_ACPOIO. BUF : 
EXTRN MOMSAB-CI ROMS. POOP CIB : 
EXTRN MOMSAB-TRIGGER Cit : 
EXTRN MOMSAB-MOP_XM 7 BUF : 
EXTRN MOM$GQ-MOP~XMIT~BUF_DSC : 
EXTRM MOMSAB-MOP-RCV_BUF © : 
EXTRN MOM$GQ-MOP—RCV~BUF : 
EXTRN MOMSAB_MOP—MSG- MORSGa _MOP_MSG_DSC : 
EXTRN MOMSGWEVT—CODE : 
EXTRN MOMSGB-EVT_POPR ; 
EXTRN MOMSGB-EVT—PRS : 
EXTRN MOM$GB-EVT~PSER : 
EXTRN SVD$GK-PCNO_ADD : 
EXTRN SVD$GK-PCNO-SDV ; 
EXTRN SVD$GK-PCNO-CPU : 


TRN SVDS$GK>PCNO-SDA 


——————__—___-——_, 
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19: 96 VAX-11 Bliss-32 V reg 
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M 
TRN MOM$GQ"PSIRAMDSC 
TRN MOM MSNPA. Test MOMSNPA_TEST_NODE_ACC 


‘ 
TRN  MOMSNPA®CIR RLOOP 


TRN MOM $-ALPEFOVF MOM$_MIRBFOVF 
XTRN MOM 3-A CBFAIL, NMASNPARSE 
XTRN MOMS $BLD REPLY MOMSBUILD_P2 


-EXTRN MOMSINIT CIB, MOMSLO 
*EXTRN MOMSNETACE Bion MOMSRAPOTOERROR 
*EXTRN MOMSMOP OPEN /MOMSHOPSETSUBSTATE 


BSGET_VM 
SEXTRN UIBSFREE _VvM, VLIBSASN. uTH MBX 
-PSECT S$CODES,NOWRT,2 
Ph body MOMSTEST, Save R2,R3 


MOMSNPA_TEST, 
MOVZBL MOMSGB_ ENTITY_CODE, RO 


So 
So 


NOD 000-00" 0" 0 0—" Om OOOO 


@WrOMMro——MMno— SMM Sn = p> | PMO 
ee 


rr 
VIG 


B #4, MOMSGL_SERVICE_FLAGS 
MOVAB MOMSNPA_ TEST_NODE_ACC, Séanse _TABLE 


$: MOVAB MOMSNPA_TEST, NPARSE_TABLE 
$: MOVAB MOMSNODETEST, LOOP_ROUTINE 


RO. #3 
MOVAB MOMSNPA_TEST, NPARSE_TABLE 
MOVAB MOMSLOOP_ LINE, LOOP_ROUTINE 
4$: CMPB sO, #2 

a 


MOVAB MOMSNPA_CIRLOOP, NPARSE TABLE 
AB ROMBACTTVELOOP, LOOP_ROOTINE 


PUSHAB SAB” NPARSE BLK 
nom NMASNPARSE 


oo oO 
rr 


vw 
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09 000000006 00 
50 000000006 
50 
52 


00000000v 
03 
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DOWAZOCO 
o<co=4v<< 
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50 
52 00000000v 
02 


52 00000000V 


000000006 
000000006 00 
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; Routine Size: 105 bytes, Routine Base: $CODE$ + 0000 


SS 


WWIII AIP PONoPUNononononny 
PET ST SSP 


Wr—o 
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SSRFSUSSSSRSVAGRAN SoM Nanrwnsoowew 
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78 1 XSBTTL ‘mom$activeloop Active oe 
GLOBAL ROUTINE mom$activeloop : NOVALUE = 


X-11 Bliss-32 arenes Page 1 
SKSVMSMASTER: CMOM.SRC JMOMTEST .B32; 1 (4 


i+¢ 
FUNCTIONAL DESCRIPTION: 


This routine perene the active loop function as a result 
a LOOP CIRCUIT command. 


IMPLICIT INPUTS: 
MOMSL_MOP_CHAN = Channel number on which to issue loop MOP messages. 


i 

i 

i ROUTINE VALUE: 
ie 


COMPLETION CODES: 
Signal errors. 


COOOCooCoooooocoo 


BEGIN 


OWN 
msgs_ looped; 


LOCAL 
mom_recv_CIB: REF BBLOCK, 
mom_xmit_CIB: REF BBLOCK, 
Loop_count : WORD, 
help_type, 


rcvdsc : VECTOR 
status; 


] 
Enable condition handler to clean up after loop operation. 


ENABLE mom$loophandler; 

mom$get_circuit_type (S; 

mom$getsrvtimer (); 

I NOT -mom$gl_service_flags Cmom$v_ni_circ] THEN 


i Assign a MOP channel for sending point to point or multipoint loop 
mosokges and make sure CIB isn’ 


BEGIN 

mom$mopopen (mom$ab_cib Ccib$l_chan]); 

mom$init CIB (mom$ab_cib, nma$c_fnc_tes, 0, 0, 0); 
mom$ab_cib [cib$v_target_addr_fTxed] = true; 
mom_xmit_CI6 = mom_recv_CIB ="mom$ab_cib; 


treated as if the circuit were an 


ELSE 
BEGIN 


SOOOOCOOoooocooooooooooooooooooooooooo 
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1 
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1 
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1 
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1 
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2 
msgsize, 
rcevien, 
retry 
skip_invalid_MOP msg, 
snddsc : VETTO fg. 

2J, 


Ss 
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svd$gk_pcno_lpn, 
svd$gk_pcno_$lnh); 


Test Routines 16-Sep-1984 02:10: 11 0-74 Page 12 
voa~ 80 momSactiveloop Active loop 1 730071382 95:12:98 DISKSVMSMASTE * HOM SRCSMOMTEST.B32;1 (4) 
& ' 
9 ! If the py he is LOOP i an assistant node (NI only) and there 
40 : was mo HELP type specified in the command, default HELP type to FULL. 
41 : This means the looped message will go to the assisting node both on 
ri O32 the way to and on the way back from the target node. 
44 034 if -mom$gl_service_flags Cmom$v_loop_w_assist] AND 
45 8 4 NOT ,mom$ab_service data [svd$gk_pcho_lph, svd$v_msg_param] THEN 
46 4 mom$ab_service data [svd gk pend Lph, eves) pores = nma$c_loop_ full; 
of r help_type = -mom$aB_service_data (svd$gk_pcno_lph, svd$l_param]; 
49 4 i Set up to do Q10s to the target node. First, get the target node's 
50 4 ! hardware address and/or node number. Then, get a MOP I/0 channel, 
51 034 ! and set up the association between the MOP 170 channel and an NI 
28 8 : } destination. 
54 035 if NOT .mom$ab service data Csvd$gk_pcno_pha, svd$v_msg_param] THEN 
$2? 035 mom$get_node_id (svd$gk_pcno_[pn, 
56 5 svd$gk_pcno_$ina 
3, 33 IF chetpotype NEO naady Tone dart faeh’ 
-he e nma$c_loop_ fu 
35 35 BEGIN” _— 
60 35 mom$mopopen (mom$ab_cib Ccib$l_chan]); 
61 35 mom$init_CIB (mom$ab_cib, 
$06 
$e 
64 
66 


AAW 


END; 
' 


iif loop assistance is specified in the NICE command, the loop message 
' must be transmitted or received by a second node. Set up this assistance 
channel the same way as the target channel (above). 


PAA O 
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if .help_type NEQ mom$k_no_loop_help THEN 
BEGIN at td 


mom$mopopen (mom$ab_loop_cib Ccib$l_chan]); 
IF NOT .mom$ab_service_data Csvd$gk_pcno_lpa, svd$v_msg_param] THEN 
mom$get_node_id (svd$gk_pcno_lan, 
svdegkpcno_ Sinn, 


090908 SIN NS NNN NN 


The loop message must be rebuilt to alternate with the receive 
NI address, so tell MOMSMOPSNDRCV not alternate the receive NI 
address. fhat must be done from here (although it isn't done 
correctly right now). 


mom$ab_ Loop_cib Ccib$v_target_addr_fixed) = true; 


SELON 
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SELECT .help_type of 
—. 


oo 
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; 329 3 Cmom$k_no_loop_help, nma$c_loop_recv]: 
; in $6 ; Set the loop messages to be transmitted to the target node. 
; 399 8 mom_xmit_cib = mom$ab_cib; 
; rit , Crma$c_Toop_full, nma$c_loop_xmit): 
3 rt +244 Set the loop messages to be transmitted to the assisting node. 
: 404 0401 mom_xmit_cib = mom$ab_loop_cib; 
; o09 beg Crma$c_Toop_full, nma$c_loop_récvd: 
; 40 404 Set the looped messages to be received from the assisting node. 
: 409 be mom_recv_cib = mom$ab_loop_cib; 
; oiY 838 Cmom$k_no_loop_help, nma$c_loop_xmit): 
; tig 8240 ; Set the loop messages to be received from the target node. 
: 414 9411 on mom_recv_cib = mom$ab_cib; 
: 416 $448 END; 
3; 417 0414 : 
3 213 gel? Set the circuit substate to -LOOPING. 
: ri 0e17 mom$mopsetsubstate (nma$c_linss_loo 
> 421 0418 -mom_xmit_cib Ccib$l_chan]); 
; re eg mom_build_loop_bufs (snddsc, rcvdsc); 
: 634 0421 i Get the number of times to loop from the data base. 
3 ? ? Bs ¢ } If the parameter is not set in the data base then use default size. 
3 : i 8 3 Loop_count = ,mom$ab_service_data Csva$gk_pcno_lpc, svd$l_param]; 
5 429 04 6 2 ! Loop the specified number of times. for point to point circuits, 
3 6 7 ! the target node's driver doesn't keep the MOP yeteses that causes MOM to 
> 431 0428 ! get start up. Therefore, the target's MOM will send a bogus OC MOP message 
: $36 0429 ! to get this MOM to retransmit the loop message. After receiving the firs 
; 43 0430 ! OC message, skip over all others without retransmitting the loop message. 
; 434 0431 ! This is in case the target is having trouble recetying the loop messae 
: 435 04 § ' (buffer's too small, for example), and is retransmitting the OC message. 
; 436 04 : it this MOM doesn't wait for them, another MOM gers started up by the 
; 437 04 4 i OC message, and things start to ping-pong indefinitely. 
; £35 Od retry = 2; 
> 440 skip_invalid MOP_msg = 0; 
> 441 3 INCR’i FROM 0 TO”.loop_count - 1 DO 
; rr is BEGIN 
: rire} $) | Send and receive loop messages retrying on errors. 
; 44 “§ ; WHILE aretry GTR 0 DO 
3 448 445 4 status = mom$mopsndrcv (.mom_xmit_cib, snddsc, 
3 rch $$ ? omon_recy_cib, rcevdsc, 
; v 
3; «6451 0448 4 .skip_invalid_MOP_msg); 
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life message was cece tyed successfully then make sure that it matches 
If it does, count one message successfully looped. 


what was sent. 
if .status THEN 
BEGIN 
IF .rcvien EQ | AN 
1])<0 


D 

.(.revdse 8> EQL %X"OC" THEN 

skip_invalid_MOP_msg = UPLIT (1, UPLIT BYTE (%x'0C')) 

BEGIN 

status = mom$chkbuffer (.snddsc £9. 
-snddsc ° 
-revlen,_ 
erevdse ciJ, 
mom$c_loop_mop) ; 

IF .status THEN 

EXITLOOP; 
END; 
END 


i If the transmission of the Loop message completed with any error 


except a time out, quit trying right away. 


BEGIN 
IF .status NEQ ss$_timeout THEN 
EXITLOOP; 


i If an error was encountered then set up the error response message 
and keep trying to send this one as long as the retry count allows. 


retry = .retry = 1; 
posteh_negelock Cmsb$b_code] = nma$c_sts_\pr; 


If a loop message was not successfully sent and received even after 
retries then stop trying to loop. 
IF NOT .status THEN 
aon d l t i; ! Set f t of 
msgs_looped = .loop_count - .i; ! Set up of count of messages 
EXT TLOOPs me : . 


i If all the loop messages were sent and receive successfully then 
! return a success message. If errors were encountered, return a 
! message indicating the error and the number of messages not looped. 


if .status THEN 
BEGIN 


mom$ab_msgblock fasbSi. flags) = 0; 
mom$ab_msgblock [msb$b_code] = nma$c_sts_suc; 


ELSE 
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v0. 


; 509 ote 

; 19 mom$ab_msgblock (Cmsb$l_flags] = sombep m0 block Cmsb$l_ flags] OR 
; \§ 09 ponSab_asgblock Cmsb$a_data] = UPLIT (2, msgs_looped); 

: 514 311 : 

: 18 a Build and signal the response message. 

; 51 14 2 mom$bld_reply (mom$ab_msgblock, msgsize); 

; 218 B21? $s ignal msg {nomsab -nice-xmit. buf. megsize): 

: 520 oa17 1 END; ! End of mom$activeloop 


»PSECT S$PLITS,NOWRT,NOEXE,2 


OC 00058 P.AAH: .BYTE 12 ; F 

0059 “BLKB 3 : 

00000001 005¢ P.AAG: <LONG 1 ; : 

00000000" 0006 “ADDRESS P.AAH : : 

90000002 06064 P.AAL: “LONG ; : 

00000000" 00068 “ADDRESS MSGS_LOOPED : 3 

.PSECT SOWNS,NOEXE,2 3 

001BE .BLKB 2 : 

0010 MSGS_LOOPED® : 

-BLKB 4 ; 

.PSECT SCODES,NOWRT,2 ; 

OFFC 00000 ENTRY MOMSACTIVELOOP, Save R2,R3,R4,R5,R6,R7,R8,- ; 0279 ; 

5B 000000006 00 9€ 00002 MOVAB MOMSAB.LOOP_CIB, R11 : : 

2A 090000006 00 9E 9009 MOVAB MOMSAB“MSGBCOCK, R10 : : 

9 000000006 ° 95 19 MOV MOMSAB~CIB, R9 : : 

SE 18 ¢ 001 SUBL 4, SP : : 

D 0206 CF DE OOO1A MOVAL 228, (FP) : 0297 : 

900000 6 0 FB OOOTF CALLS #0, MOMSGET_CIRCUIT_TYPE > 0319 : 
00 0006 FB 6 CALLS #0. MOMSGETSRVTIMER : 0320 : 
24 000000006 j £0 : BBS #1, MOMSGL SERVICE FLAGS, 1$ : 0321 ; 
000000006 00 1 FB CALLS #1, MOMSMOPOPEN F ; 
7C CLRO. 0 = (§P) : 0329 : 

7E 3 7D 0004 MOVa #18, -(SP) : F 

DD 0004 PUSHL R : : 

000000006 0 5 FB 4 CALLS #5, MOMSINIT_CIB : : 
10. A j 8 4 BISB2 #1. MOMSAB_CTB+ : 0330 : 

7 69 MOVAB MOMSAB_CIB> MOM _RECV_CIB > 0331 ; 

6 oor, p MOVL ) tase MOM_XMTT_CIB sins 3 

0E 000000006 00 05 E1 0 § 1$ BBC #3, MOMSGL_SERVICE_FLAGS, 2% : o3E : 
00000000* E8 00061 BLES <<hoM AB_SERVICE DATA*<SUDSGKPCNO_LPH#137>~; 42 ; 
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es 


00000000* 00 02 00 00068 MOVL ' #3, S<HOMSAB_ SERVICE_DATA+<SVD$GK_PCNO_LPH*=; 0343 i 
52 00000000* 00 DO 0006F 2s: MOVL <<HOMSAB SERVICE_DATA*<SVDS$GK_PCNO_LPH*137>=: 0344 : 

19 00000000" 00 €8 00076 BLBS <<HOASAB. SERVICE_DATA+<SVD$GK_PCNO_PHA®137>=: 0351 : 

0000 F DD 907 PUSHL asvo$ex _PCNO_$LNH + 0352 ; 

20900006 € BF bb pusHE  SeVpseR-PENOCUDN 

000000006 9 F Q F CALLS Ay MO OnNScET NODE. 1D : : 
» 3$: or HELP. TYPE, #2 ; 0355 : 

DD 00098 PUSHL R9 + 0357 ; 

000000006 00 1 FB 00090 CALLS #1, MOMSMOPOPEN : : 
99000006 F DD 0004 PUSHL  #SVD$GK_PCNO_S$LNH : 0358 : 

00000006 8F DD OOAA PUSHL #SVD$GK~PCNO-LPN : : 

00000006 8F DD 6 BO PUSHL #SVDSGK- “PCNO-PHA : ; 

iF DD 086 PUSHL #18 : ; 

59 DD 0008 PUSHL 9 : ; 

000000006 00 93 FB OOOBA CALLS ">. MOMSINIT_CIB : ; 
FFFFFFFF © 8F 2 D1 000C1 4$: CMPL ELP_TYPE, #=1 + 0369 ; 
4A 13 00068 BEQL bs" : ; 

5B DD OOOCA PUSHL R11 + 0371 ; 

000000006 00 o1 FB doce CALLS ye MOMSMO : ; 
19 00000000* 00 €8 000D BLBS <<hOnBAB. CE RVECE _DATA+<SVD$GK_PCNO_LPA®137>=: 0372 ; 

999000 06 er DD OOODA PUSAL asvb$eK _PCNO_SLAH : 0373 ; 

00000 F DD O00E0 PUSHL #SVD$GK"PCNO~SLNN : ; 

000000006 8F oD OO0E6 PUSHL #SVD$GK~PCNO-LAN ; ; 

000000006 00 3 FB OoeC CALLS #3, MOMSGET _RODE_ID ; F 
000000006 8F DD O00F 5$: PUSHL #SVD$GK_PCNO_SLNA : 0376 : 

900000006 F DD 000F9 PUSHL #SVD$GK"PCNO-LAN ; : 

00000006 8F DD OO0FF PUSHL #SVDSGK~ “PCNO_LPA : : 

12 OD 90105 PUSHL #8 : ; 

5B DD 0010 PUSHL ; : 

000000006 00 05 FB 00109 CALL ae MOMS IN NIT_C ; : 
10 AB 1 88 00110 BISB2 #1, MOMSAB_ Lor. C1B+16 : 0387 ; 
FFFFFFFF 8F g D1 gii8 6$: CMPL HELP mye ; 0392 3 
13 00118 BEQL : 3 

01 : D1 00110 CMPL -HELP_TYPE, #1 ; : 

03 12 001 BNEQ &8$ ; : 

56 9 9E 00122 78: MOV MOMSAB_CIB, MOM_XMIT_CIB + 0396 : 

D5 00125 8S: TSTL HELP_TYPE : 0397 : 

1 1 BEQL 9 : 3 

02 D1 00129 CMPL §-HELP_TYPE, #2 : $ 

03 12 0012C BNEQ : 3 

56 9E OO12E 9S: MOVAB MOMSAB_LOOP_CIB, MOM_XMIT_CIB > 0401 ; 

D5 00131 10$ TSTL HELP_TYPE + 0402 : 

15 001 BLE 11$ ; : 

02 pi 1 CMPL §-HELP_TYPE, #2 ; : 

4 001 BGTR ; : 

57 i: 13A MOVAB MORSAB LOOP {i8- MOM_RECV_CIB > 0406 3 

FEFFFFFF © BF p 130 11$: CMPL P_TYPE, : 0407 3 
2 144 BLSS ; : 

D 146 TSTL §HELP_TYPE F : 

14 0014 BGTR ; : 

57 69 9E O014A MOVAB MOMSAB_CIB, MOM_RECV_CIB > 0411 : 


Es 6-56 - Page nor 
-$ep-1984 02:10: VAX-11 Bliss-32 V4.0 rag Pag ‘ y 
we he Bag 3 oe 1e-ge07} 246: KSVMSMASTER: CMOM. SRCJMOMTEST.B32; 1 
yous 4 seataatiosleas Active loop 12 Sep 1382 95 1? 98 DIS oa 
i pp 140 128: PUSHL (MOM_XMIT_CIB) 0418 : 
PSETSUBSTATE : ; 
000000006 00 r 02 if 8 Sishie reine SE | ani ; 
. 05 B OO1Se OOP_BUFS ; : 
EB bol sor Shomtane eayTE <SVD$GK_PCNO_LPC*137>=: 0424 ; 
enerete tay 99 00000000* 8 88 185 MOVW <<HOMBAB SERVICE. DRTAS SVD$GK_PCNO_ ap 
s TRY ; ; 
” p? 8 f CORT SKIP. INVALID MOP_MSG : 43? 
58 Re 171 nOVEuL LOOP COUNT, R8 i 0658 
{ f 133 BRB 18$ _ : 
4 D2 179 13$: stl RETRY 
; bb ie PUSHL SKIP_INVALID_MOP_MSG 0448 
% Ar 3F a7 PUSHAB RCVDSC Focal ; 
$7 Bo Goes FUME Rom Rc ciB ote] 
eo) ce ; 
ecm BS EB Bing GALS fe nanan fess] |) 
E + 13 CMPL = RCVLEN, #1 : 0455 
6 12 6199 BNEQ 14$ pen ; 
0c 0c BE 91 0198 CPB aRCVDSC #4, #12 ; - 
12 0019F 7 
53 00000000° 09 of 1A) MOVAB P AAG. SKIP_INVALID_MOP_MSG poe 
$2 D4 OO1AA 14$: = CLARE (SP) : 9460 
10 AE DD OO1AC PUSHL RCVDS i 0463 
8 AE DD OO1AF PUSHL RCVL N i 0464 
SARGR fe ie ie 
00 - 08 PB 81 B3 CALLS #5, MOMSCHKBUFFER oo 
SO sf ee" din ig 
: , #556 : 
0000022c =sa&F i 1g 15$: CHL 73 he 
04 AA it be ited oe: RAE GB nT. MOMSAB_MSGBLOCK+4 ; O48 
$5 8 Bibs 178: BCBS STATUS, 18$ 0489 
° : 108 MOVZWL LOOP COUNT, R1 
i SUBL RT, MSG$_LOOPED ; 
00000" 00 1 ( 1D i ; Fass 
os 4 tD Sol 18$: ACBLSS 1, 13$ + 0438 
ne 68 0 £5 OO1es 198: Brat» stATUS, ‘208 3 05 
ES OO1ED 198 3 050 
. 4 OO1EC CLRL SAB MSGBLOCK 20 
04 AA : #0 “E OVE At MOMSAB_MSGBLOCK+4 ; 
ifs BR 
: $AB_MSGBLOCK ; 
AA , G Bb oIrd 20s: Gloag PAI, ROMSAB, MSGBLOCK#24 : 
ara tage omnes AE ae iff 218: PUSHAS ‘i os ; a2 
ss PASE B sansa. _neru ee 
peneees 04 AE dD 00 PUSHL MSGSIZE ; 
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§99000006 0 $F 0020E PUSHAB Airey hice. XMIT_BUF : 
00 F OD 14 PUSHL Tes 3 
000000006 00 3 FB 1A CALLS Whit SIGNAL ; 
of 1 RET 3; 0517 
0000 00222 228: «WORD Save nothing ; 0297 
7E 04 4 CLRL -(SP) 3 
5E bp 8 PUSHL SP ; 
43 04 as i) ova ll: -(SP) : 
00000000v 0 0 FB g CALLS #3, MOMSLOOPHANDLER : 
é€ Pi 
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ZSBTTL ‘mom_build_loop_bufs Build buffer gentaining loop message’ 
GLOBAL ROUTINE mof_build_loop_bufs (xmit_buffer_dsc, 
recv_Bbuffer_dsc) : NOVALUE = 


'o4¢ 


; FUNCTIONAL DESCRIPTION: 


This routine is called to build a circuit Loop message. It gets a 
buffer of the appropriate size and fills in the loop message. 


i 

i 

i 

! IMPLICIT INPUTS: 

} xmit_buffer_dsc - Address at which to return descriptor of completed 
; Loop ey to transmit. 
roan put For Soe - Address at which to return descriptor of completed 
: uffer. 
4 

! ROUTINE VALUE: 

! COMPLETION CODES: 
Signal errors. 
le 


BEGIN 


loop_size; 


LOCAL 
loop_data : BYTE, 
msgsize; 


Request buffers for loopback. 


loop_size = ,mom$ab_service_data Csvd$gk_pcno_lpl, svd$l_param]; 


i If the circuit is an NI, the loop size doesn't include the headers. 
: Add the maximum possible header size to the loop size. 


if .mom$gl_service_flags Cmom$v_ni_circ] THEN 
Loop_stze = .ldop_size + mom$k_max_loop_header; 


IF NOT mom$getbuffer (loop_size, .xmit_buffer_dsc, .recv_buffer_dsc) THEN 


mom$ab_msgblock Cmsb$l_flags] = msb$m_det_fld or 
msb$m_msg_fld or 


mom$ab_msgblock Cmsb$b_code] = sts_ 
mom$ab_msgblock [msb$w_detail] = nma$c_pcno_lpl; 
mom$ab_msgblock (msb$l_text = mom$_alpbfovf; 

mom$ab_msgblock [msb$a_data = UPLIT (2, loop_size); 


mom$bld_reply (mom$ab_msgblock, msgsize); 
Ssignal msg laonseb ntce seit, but, aegsize); 
' o 
i Initialize the transmit buffer with the specified data. 
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MOMTEST MOM Looe Test Routines Sep-1984 VAX-11 Bliss-32 V4. 
v04= man. trtté Lace bots” Gutid butter sentetatee 1 b-se0-1964 9b eS PNR SUMEMASTERSCMGM SRCSMOMTEST.832:1°%" (8S vO4 
; ST 75 ! 
: if a : Loop_data = .mom$ab_service_data ([svd$gk_pcno_lpd, svd$l_param); 
: 7 mossinitbuffer (.xmit_buffer_dsc ; Loo data, mom$c_loop_mop); 
3 28S 258 END; f¢é a ot mom_build “toop buts 
-PSECT S$PLITS,NOWRT,NOEXE,2 
00000002 O006C P.AAJ: .LONG 2 s 
Mittin 80096 ADDRESS LOOP_SIZE é 


~PSECT SOWNS,NOEXE,2 


001C4 LOOP_SIZE: 
~BLKB 4 


-PSECT S$CODES,NOWRT,2 


000c 00000 .ENTRY MOM BUILD _LOOP_BUFS, Save R2.R3 : 0519 

53 00000000' 00 9€ 9002 MOVAB LOOP § : 

52 000000006 00 H 0009 MOV LOMsKa TASGBLOCK, R2 : 

3E 04 ¢ 90019 SUBL : 

63 00000000* 00 00 0001 MOVL <<AOnSAB SERVICE_DATA+<SVD$GK_PCNO_LPL*137>-; 
03 000000006 09 01 €1 OOO1A c #1, MOMSGL~SERVICE_FLAGS, 1$ + 0557 
& 1E c0 000 , ADDL2 «#36 : 0558 
7E 04 AC D 900 1$: MOVG i _BUFFER_DSC, -(SP) + 0560 

53 DD 00029 PUSHL : 

v LL ; 

00000000 90 03 FB 990 CALLS , MOMSGETBUFFER 

$5 26 DO 000 MOVL @ i MOMSAB_MSGBLOCK + 0563 
04 A2 10 8E 00038 MNEGB #16. MOMSAB-MSGBLOCK+4 : 0565 
08 A 97 Hi 98 003¢ MOVZBW #151, MOMSAB_MSGBLOCK+8 : 0566 
OC A2 00000000G 8F 00 00041 MOVL #MOM$_ALPBFOUF, MOMSAB, MSGBLOCK #12 : 0567 
18 A2 00000000' 00 9E 00049 MOVAB HOM MSAB_MSGBLOCK?24 : 0568 
4004 8F 8B 00051 PUSHR #M<R2,S : 0570 

000000006 00 02 FB 00055 CALLS #2 MOMSBLD _REPLY : 
GE DD 0005C¢ PUSHL -M : 0571 

000000006 9F 0005E PUSHAB M Ap NICE_XMIT_BUF : 

02070000 8F ODD 4 PUSHL 4 40137 4 : 

000000006 90 3 FB A CALLS LIBSSIGN ; 
0 00000000* 00 90 00071 2s: MOVE <<HORSAB SERVICE, DATA+<SVD$GK_PCNO_LPD*137>-; 0576 
ze D4 00078 ats : 0578 

7E 50 9A OOO7A MOV ZBL P_DATA (SP) : 

04 aC DD 00070 PUSHL var “BUF FER_DSC ; 

00000000v 00 03 FB 000 0 CALLS #3, MOMSINITAUFFER : 
04 000 RET : 0579 


; Routine Size: 136 bytes, Routine Base: $CODE$ + 029D 
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you 0 mom$passiveloop Passive Loop 14-Sep ats 4 95:12 ‘96 Disk KSVMSMASTER: chon’ She MOMTEST.B32; 429 * 3 
; 585 2 9 1 SSBTTL ,nomspassiveloop Passive loop’ 
: 8 : GLOBAL ROUTINE mom$passiveloop (mop_msg_dsc) : NOVALUE = 
: 588 begs 1 144 
; 396 0383 ! FUNCTIONAL DESCRIPTION: 
: 591 05 § 74 This routine performs the passive wnopnect function. 
; 538 ta t4 : It provides the mirror function for the LOOP CIR (ort command. 
: 594 0589 1 | ROUTINE VALUE: 
; re Bene } COMPLETION CODES: 
; 597 0394 } Signal errors. 
: 599 0594 1 i-- 
; 600 0595 1 
: 601 0596 BEGIN 
3 ope 0597 
: 60 0598 MAP 
; one $344 2 mop_msg_dsc : ref vector; 
: 606 0601 2 LOCAL 
; 607 8005 status; 
: 608 060 
; 609 0604 ‘ 
: ei9 pene Enable condition handler to clean up after loop operation. 
; 612 9607 ENABLE mom$loophandler; 
; ol% +44 Log the event indicating that a passive loopback operation was initiated. 
: 616 0611 mom$gw_ evt_code = evc$c_nma_ps|; ! Event code cgess ive Loopback) 
s 617 pelg mon$gb _ evt_ sPoPr = evc$c_ _nma_popr_ini;! Operation (initiated) 
; 618 061 mom$log_event (0 
: o}) bete mom$gb_ évt_popr “ evese _nma_popr_ter;! Operation (terminated) 
3 e31 bers Set the circuit substate to -REFLECTING. 
: $56 0618 mom$mopsetsubstate (nma$c_Linss_ref 
> 624 pol? -mom$ab_ 3 Coibst _chan)); 
; 625 620 mom$ab_cib Ccib$l_retry_cnt]™= 
: ose 06 1 WHILE T dO 
; 8 be § CHSWCHAR (mop$_fct_pld, .mop_msg_dsc (1)); 
: 630 0625 status = mom$mopsndrcv (mom$ab_cib, .mop_msg_dsc 
; 631 0626 mom$ab_cib, mom$gq_mop_ rev _buf_dsc, 
: 6 ¢ 0627 mop_msg_dsc (OJ, f 
; 6 0628 0); ! Don't skip any received msgs. 
; $ : Oe 3 mom$chk_mop_error (. status); 
3 O38 631 wat. { oop as ms9. dsc (1])<0,8> NEQU mop$_fct_ald THEN 
: o38 6 : 
; 659 634 END; 
3; 640 635 
3 641 0636 mom$error (nma$c_sts_suc); 
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> 64 : 
; 64 nad f END; ! End of mom$passiveloop ‘ 

003¢ 000 ENTRY MOMSPASSIVELOOP. Save R2,R3,R4,R5 : 0581 ; 

55 900000006 90 9E a092 MOVAB MOM$GB_EVT_P R5 : ; 

4 0000 9006 0 9E 990 MOVAB HOM $AB-CIB> ; : 

6D 0062 cf ‘ 0 19 MOVAL : 0596 : 

000000006 00 : 91 MOVB MOM$GW_EVT_CODE > 0611 ; 
6 4 0001C CLRB nasa” EVT—POPR + 061 F 

E 7C OO1g CLROQ SP) : 061 : 

000000006 00 0 FB 0 CALLS no MOM$LOG_EVENT : : 
56 01 90 00027 MOVB #1, MOMS$GB_EVT_POPR + 0614 ; 

64 DD OO02A PUSHL MOMSAB_CIB™ + 0619 ; 

; 01 DD 000eC PUSHL #1 : 0618 ; 
000000006 90 02 FB 000 : CALLS #e, MOMSMOPSETSUBSTATE : : 
12 AG 01 DO 000 MOVL MOMSAB CIB+1 : 0620 ; 

52 04 AC DO 00039 MOVL he > 0623 ; 

04 B82 19 90 0003p 1$ MOVB Gps : ; 

7E D4 00041 CLRL S ; 0627 ; 

04 AC DD 00043 PUSHL MOP : ; 

000000006 00 9F 00046 PUSHAB MOMS SnoP RCV_BUF _DSC + 0625 : 

54 DD 0004C PUSHL : ; 

04 AC DD 0004E PUSHL MOP_MSG_DSC : 0627 : 

54 DD 00051 PUSHL : 0625 F 

000000006 00 06 FB 0053 CALLS #6, MOMSMOPSNDRCV : 0627 : 
53 g DO 0005A OVL 0, STATUS : : 

53 DD 0005D PUSHL STATUS : 0629 ; 

000000006 00 01 FB 0005F CALLS #1, MOMSCHK_MOP_ERROR ; : 
18 04 B2 91 00066 CMPB = @4(R2), #247 + 0631 : 

D1 13 OO06A BEQL =s:«1$ ; ; 

01 oD 9906¢ PUSHL #1 : 0636 ; 

000000006 00 01 FB O06E CALLS #1, MOMSERROR F : 
04 007 RET : 0638 ; 

0000 00076 2$: «WORD Save nothing : 0596 3 

7E 04 00078 CLRL = = (SP) ; : 

5E DD 00074 PUSHL  $P F : 

7E 04 AC D 0007¢ MOVQ.  &(AP SP) : : 

00000000v 00 03 FB 90080 CALLS #3, PROMS. QOPHANDLER : : 
04 00087 RET : : 
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ZSBTTL ‘mom$loop_line Loop PSI Line’ 
GLOBAL ROUTINE mom$Loop_l : NOVALUE = 


* FUNCTIONAL DESCRIPTION: 

i This fqut tne is called when MOM receives a LOOP LINE command from NCP. 
Loop Line = only be performed on PSI (L A PB) lines. This routine 
builds buffers and issues a Q10W to tell the PSIACP to perform the 
loop Line function. It then takes the completion status of the Q10 
and builds and sends a NICE response message to NCP. 


i 
i 
! 
' 
: 
! IMPLICIT INPUTS: 

MOMSGQ_ENTITY_BUF_DSC Contains descriptor of loop Line ID. 
i] 

' 

: 

1 

' 


i ROUTINE VALUE: 
! COMPLETION CODES: 
Signal errors. 


BEGIN 
$nfbdsc (mom_q_loop_line, nfb, loop, , pli 
nam, T Search ey one = Line name, oper! = eql 
his ! Null search key two 
olpc ! Loop count 
elpl ' Loop message length 
ytPd ! Loop message data type 
MAP . 
mom_q_loop_line_nfb : VECTOR; 
LOCAL 
yy 
Pew VECTOR (2), 
p4_ buf. dsc: VECTOR }: 
pee “buffer: VECTOR . 
Josh: Siosb, 
database, 
Loop_line_ chen WORD 
ntb 7 BBLOCK, 
msgsize; 


: Build the loop Line qio buffers. 

nom$bui ld 2 

eece: entity_buf_dsc £92. ' Search key one Length 
-mom$gq_entity_buf_dsc ‘ i Search key one address 


1, 
mom$q_ *p2bfdsc, p2_dsc); 


p4_buffer 9 = ,mom$ab_service_data ([svd$gk_pcno_lpc, svd$l_param); 
Re buffer = ,mom$ab_service_data [svd$gk_pcno_lpl, svd$l"param]; 
p4_buf fer = ,mom$ab_service_data [svd$gk_pcno_lpd, svd$l"param); 
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oop..Line Loop PSI Line 1 ~$007 138% 95:10:98 DISKSVMSMASTER:CMOM 
p4_buf_dsc ae = 12; 
p4_buf_dsc (iJ = p4_buffer; 
' 


' Ass ton a channel directly to PSI rather than getting to PSI via NETACP, 
! which is the norae) route used for SET, SHOW etc Q10s issued by NML. 

! In this case this isn't appropriate because NETACP can't afford to wait 
! around for a loop function complete (or not, whichever the case may be). 
} So, for loop Line, MOM bypasses NETACP. 


Status = SASSIGN (CHAN = Loop_line_chan, 
DEVNAM = mom$gq_psinamdsc); 
IF ue THEN 


mom$ab_msgblock (Cmsb$l_flags] = msb$m_msg_fld; 
mom$ab_msgblock ([msb$b_code] = nma$c_Sts_Tco; 
mom$ab_msgblock ([msb$l_text] = .status; 

ELSE 


BEGIN 
Issue the loop Line Q10W to PSIACP. 
Status = $Q10W (CHAN 


= ,loop_line_chan, 
= jos acpcontrol, 


os 
= mom q_loop_line_nfb, 
pe_dsc, 


é ba but_dsc); 
If logging is turned on, dump the Q10 status and buffers. 


mom$debug_qio (dbg$c_acpqio, ! Log type code 
.status, Q10 completion status 
1/0 status block 


osb, 
mom_q_loop_line_nfb, NFB buffer descriptor 


ee eee 


pe_dsc, P2 buffer descriptor 
ps, Length of data in P4 buffer 
p4_buf_dsc); P4 buffer descriptor 
' 
i Using the Q10 completion status, set up the return status for 
the NICE response message to NCP. 
nfb = .mom_q_loop_line_nfb (1); 
gptebese = .nfb [nfb$b_database); 


egaseapatoerrer (.,databese, .status, iosb) THEN 


mom$ab_msgblock fasbs\. flags, = 0; 
poaseh_sogelech msb$b_code] = nma$c_sts_suc; 


] 

Deassign the Q10 channel to NW: 
$DASSGN (CHAN = .Loop_line_chan); 
END; 


ne 
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V04=000 mom$loop.line Loop PSI Line eae aee Pg ees NR OMASTERSCHGH SACSMOMTEST.B32;4 
; 759 753 ! 
: ree : : } Build and signal the NICE response message to NCP. 
: 76 7 nonsbld reply (mom$ab_msgblock, msgsize); 
; 76 7 3 $signal “ase {mom$ab_ atce-xnit buf, “ -Msgs 
: 764 758 1 END; '"End of AOMSLOOPLINE 


~PSECT S$PLITS,NOWRT,NOEXE,2 


- LONG a : 
“ADDRESS U : 
-PSECT SOWNS,NOEXE,2 
-BYTE 38 : 
BYTE 2 : 
-BYTE : 
-BYTE : 
«LONG 84017217 : 
-LONG 1 : 
BYTE 0 : 
BYTE 3 
«WORD : 
~ LONG $9210! : 
LONG 921836 : 
LONG prrrtes : 
. LONG : 
-BLKB 4 
.EXTRN SYSSASSION, SYS$Q10W 
.EXTRN SYSSDASSGN 
PSECT $CODE$,NOWRT,2 
.ENTRY MOMSLOOP LINE. - Save R2,R3,R4 : 
MOVAB MOM_Q LOOP NFB. R ro : 
ROVAR MOMSAB mSGBLOCK’ R : 
SUBL #48 SP : 
PUSHAB P2_6SC : 
PUSHAB MOASS. P2BFDSC $ 
MNEGL 1, -(SP) : 
OVQ MOM$GQ ENTITY_BUF_DSC, -(SP) : 
CALLS 6, MOMSBUILD-P 3 
OVL <<MOMSAB_SERVICE_DATA*+<SVD$GK_PCNO_ LPC#137>-; 
>+9>, P4"BUFFER ~ 
MOVL <<MOMSAB~SERVICE_DATA+<SVD$GK_PCNO _LPL#137>=; 
>+9>, P4 BUFFER+S 
MOVL <MOMSAB_SERVICE_DATA+<SVD$GK_PCNO_ LPD#137>~3 
4 P4~BUFFER+S 
MOVL P4 BUF pbs 
MOV Pé BUFFER, Pa 


oe 


; 0640 


: 0687 


690 
688 


0693 
0694 
0695 
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Y04-600 sontloup. Line Loop PSI Line 1 7300-138 98: 12: 98 DISK SVMSMAS TER: CMON SRC JMOMTEST.B32; 1 . 3 
AE 9F OO04F PUSHAB LOOP_LINE_CHAN ; 
000000886 5 ef p PUSHAB MOMS$GO_PSINAMDSC ; 
000000006 g eS § CALLS #4, SYSSASSIGN : 
9 D F MOV. RO STATUS : 
é 6 BLBS STATUS : 708 
4 4 b 6 VL #4, MOMSAB MSGBLOCK + 071 
04 A A MNEGB #10, MOMSAB_MSGBLOCK+4 + 0711 
Cc OA : D $ MOVL srAtus, MOMSAB’ MSGBLOCK #12 ; ile 
: 1 BRB $ + 070 
E 7C 00072 1$: CLRQ = SP) + 0725 
2 AE 9F 00074 PUSHAB P4_BUF_DSC ; 
AE 3 77 PUSHAB os : 
38 «AE SF QOO7A PUSHAB P DSC ; 
34 pp 7D PUSHL : 
E 7C 0007F CLRQ RSP) : 
2c AF 9F 00081 PUSHAB 10SB ; 
3 pp 00 PUSHL #56 : 
7E 28 «AE OC MOVZWL LOOP LINE_CHAN, (SP) : 
7E D4 OOOBA LRL $ 
000000006 00 o¢ FB 008¢ CALLS #12, Syssa10w ; 
52 6 p 009 MOVL RO, STATUS ; 
0 AE OF 0096 PUSHAB P4_BUF_DSC t 0729 
8 AE 9F 000 PUSHAB : 
0 AE 9F 0009C PUSHAB P2_DSC ; 
54 DD 0009F PUSHL R& : 
1¢ AE 9F OOOA1 PUSHAB 10SB ; 
52 DD O00A4 PUSHL STATUS : 0730 
4 DD 00 ne PUSHL #4 + 0729 
000000006 00 7 FB OOOA CALLS Ae MOMSDEBUG ; 
50 06 AS D OOAF MOVL LOOP Utne. NFB+S, NFB : o744 
50 02 Ad 9A 00 B3 MOV ZBL OONFByS DATABASE : 74g 
OC AE 9F 000B PUSHAB > 074 
BB QOOBA PUSHR #*M<RO,R2> : 
000000006 00 F 008¢ CALLS #3, MOMSMAPQIOERROR : 
06 0 E9 000C BLBC =._«aRO. 2 : 
63 04 00066 CLRL MORSAB MSGBLOCK + 0745 
04 A3 01 90 000¢8 MOVE #1, MOMSAB MSGBLOCK 4 + 0746 
7E 6E 3C O00CC 2s: MOVZWL Lop LINE CHAN : 0751 
000000006 00 01 FB OOOCF CALLS S¥S$D KSS ; 
08 AE OF 9006 3$: PUSHAB A sési : 0756 
53 DD 900 PUSHL : 
000000006 00 02 FB 000D CALLS MOMSBLD_REPLY ; 
8 AE D OO0E PUSHL ASéStTE : 0757 
990006 06 F OE PUSHAB $48 NICE_XMIT _BUF ; 
F DD OO00EB PUSHL #3401378 : 
000000006 00 3 FB OOOFI CALLS #3, LIBSSIGNAL : 
04 000F8 RET : 0758 


3; Routine Size: 249 bytes, Routine Base: $CODE$ + O3AD 
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V “530 momSnodetest Node Loopback test 1 ~3007 138% 95:12:98 PT EKSUMGMASTERSCMOM SRCSMOMTEST .83251 . (BS vO4 
ie. 759 1 XSBITL ‘mom$nodetest Node loopback test’ ; } 
3 760 1 GLOBAL ROUTINE mom$nodetest : NOVALUE = et 
BB 4 
; £70 163 I | FUNCTIONAL DESCRIPTION: i] 
: oe 765 1! This routine opens a Link to the loopback mirror and : : 
3 tt? 766 } } verifies the connect data to determine the maximum test message size. 4 
: 775 768 1 i-- i 
: 776 0769 1 2) 
: oe byry  GEGIN . 
; a4 B78 Enable the condition handler to perform cleanup. : : 
; 71 O77 ENABLE momStesthandler; : 
; 783 0776 ! Build the NFB for the Q10 10$_ACPCONTROL i] 
; 785 P0778 2 $nfbdsc (nfbdsc,show, .ndi i] 
; 786 P 0779 nna, ! Search key_1 = node name, oper! = eql 7% 
s er P 0780 sa ! Search key2 = wildcard, oper2 = eql .4 
; 788 0781 ,dty); et 
: 150 o78s 5 map 2 
; 791 0784 oun ntodse : VECTOR; ; 
; 79 0786 bufsiz ' Buffer size i] 
: 794 0787 msgnot Looped : WORD; ! Number cof messages not looped . 4 
: F3e O789 5 LOCAL i. 
: 797 0790 rcv_size, i] 
: 798 0791 xmit_iosb : $105SB, ¢ 3 
; 4 0735 rev. osb : $1088, : 
° cr. ° 

; 801 079% revdse —: VECTOR £29, i 
3 HH 8732 enddsc : VECTOR (C2), : 3 
3 status, : 

; 804 0797 penambuf : VECTOR Cmom$k_p2_buf_len,BYTE], ! Node name buffer for P2 : : 
; 805 0798 : 10 argument ¢ 3 
; 806 0799 p2dsc : VECTOR C2), ! Descriptor P2 buffer ae 
3; 897 0800 nfb : REF BBLOCK, ¢ 3 
3 P93 0801 ent len. : | 
3 ent_addr; : 

A By | 
; aig $808 Restructure node name for P2 argument in Qi0. : 1 
: HE 6 nfb = .nfbdsc 013; : 
3 HF : IF ‘moneee..ont ty_code EQL mom$c_nodebyname THEN -. 
; i$ 10 ent_ler = smonSqq_ent it buf _dsc 03; : ! 
; 818 11 ent_addr = .mom q_gntt y buf_dsc 4; oi 
; 819 1g nfb Cnfb$l_srch_key) = nfB$c_fdi_nna; 2 | 
; 0 1 END : | 
; 1 14 ELSE :} 
; 2 0815 BEGIN F 


ao Oe i) ee 
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is 


we 


END; 
] 
Build the NF8 from the data provided in the command message. 


mom_bidloopntb Q; 


a Attempt to connect to the mirror. 


79 


mom_open| ink Q; 


i Initialize the transmit buffer according to the Loop data type in 


: MOMSAB_SERVICE_DATA CSVD$GK_PCNO_LPD, SVDSL_PARAM 


: BS? 9 catalan @ «mendes. onttty. buf Gor [13 

$ ent_addr = ..mom en uf_dsc ; 

; ‘ 18 of Entb$t_srch key? = nfbSc_ndi add; 

; 0 dsc (6) = mom$k_p2_buf_len; 

3 3 1 pease Hh = aomeRBeTT sa 

3 § mom$build_p2 ( .ent_len, ! Length of node id 

; 4 ? ent ad fs ! Pointer to node id 

3 4 § 5 peds ! Descriptor of buffer 

; 5 ? $ pedsc); i Descriptor of P2 parameter 

; 635 o 8 2! 

; 4 8 4 Determine which version of mirror will be used. 

; 838 831 

: 839 og § sc, ! NFB for Q10 JO$_ACPCONTROL 

; gre bs ? ddsc, ! Descriptor P2 parameter 

3 4g 0835 mom$gq_acpqio_buf_dsc); ! The descriptor pointing to buffer 
3 08 $ ! where information is returned 
: 844 08 IF .status 

; 845 0838 AND (.mom$ab_acpqio_buffer EQLU nma$c_nodty_pha) THEN 

: ae6 0839 BEGIN 

; 84 0840 version = mom$c_loop_phase2; ! If both conditions then Phase 2 
> 848 ne bufsiz = .momSab_service_data Csvd$gk_pcno_lpl, svd$i_param] + 1; 
; 849 73 END 

; 850 084 SE 

; «851 oaee BEGIN 

3 826 0845 version = mom$c_loop_phase3; ! Else Phase 3 or later 

; 85 0846 bufsiz = .mom$ab_service_data Csvd$gk_pcno_lpl, svd$l_param]; 

; 854 0847 H 

3s. 839 48 ! 

; 856 49 ! Get buffers. 

s Gor 329 ! 

3 838 Se status = mom$getbuffer (bufsiz, snddsc, rcvdsc); ! Attempt to allocate it 
; 860 Ha IF NOT .status THEN 

; 861 Sze BEGIN 

3 B66 55 mom_siglooperr (nma$c_sts_pva 

3 856 nmese .9gno ipl 

; 57 uplit"(2, Bufsiz), 

; 28 mom$_alpbfovf, 

; 23 msb$m_data_fild OR msb$m_msg_fld); 

: 1 
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3g 
30 


; fe mom$initbuffer (snddsc 

: 1 -mom 6. service_data Csvd$gk_pcno_lpd, svd$l_param], 
: § f? " .version); 

; 4 f Start looping the data 

: Bg 7 INCR i FROM 0 TO .mom$ab_service_data [svd$gk_pcno_lpc, svd$l_param] - 1 DO 
: 887 0 BEGIN 

; 89 9 : Transmit loop data and wait for completion 

; 891 P 8 4 Status = $Q10W (CHAN = ; Loop. ites 

i B98 P 0885 FUNC = ios WF tevblk, 

; 89 P 08 $ 10SB = 

: 894 a oe Pi «= a i 

; 899 O88 P2 = .snddsc (035; 

; 37 tt if: -Status THEN status = .xmit_iosb Cios$w_status]; 

; 899 089¢ Check to see if we should log loop 1/0 

: 901 0894 if .status THEN 

; 90 0895 mom$debug_msg (dbg$c_lo pio. 

; 90 +4] -snddsc (1), 

; 904 089 .snddsc (OJ, 

3 ooe +9: ' SASCID ("Test message transmitted')); 

; st 44 Map errors if there were any otherwise continue 

; 909 0908 mom_maplooperr (nma$c_sts_mld, 

OB iti 

3 xm 

; 3g Benz pat service data Csvd$gk_pcno_lpc, svd$l_param] - .i); 
; a) 34:44 Post read to receive loop data back from mirror 

; 916 P 0909 status = $Q10W (CHAN = .loop_chan 

; 917 P 0910 FUNC = jo$_ réadvblk, 

3 3i8 P 0911 10SB = rcv_iosb 

3 wT P aig Pi = .rcvdsc fi } 

; $81 Bit P2 = crevdse (035; 

: 9 § Biz IF .status THEN status = .rcv_iosb Cios$w_status); 

; $34 $7 rev size =.rcv_iosb Cios$w_count]; ! Set number of characters received 
; 3 g 319 Check to see if we should log loop 1/0 

; 928 921 iF .status THEN 

; 929 ¢ mom$debug_msg (dbgSc- e Rio. 

: 93 35% vibe te chit 

; 3 § 925 SASCID. ("Test message received')); 

: 4 : 3 $ i Signal errors (if any). 

; 936 9 5 mom_maplooperr (nma$c_sts_mld, 
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; 334 0 »Status 

; 93" rcv_iosb, 

: 3 2 § -mom$ab_service_data Csvd$gk_pcno_lpc, svd$l_param] - .i); 
3 341 : 4 Check for errors on Loopback. 

; 3c8 9 : iF NOT mom$chkbuffer (.snddsc £92. 

; 94 9 -snddsc (1), 

; 945 9 S -Pcv_siz 

: 94g 9 Trevdse £42, 

; 34 Rey ? etcin -version) THEN 

; § ae 4 msgnotlooped = .mom$ab_service_data [svd$gk_pcno_lpc, svd$l_param] - .i; ! sET UP MESSAGES NOT LOOPE 
: 320 Ber : mom_siglooperr (nma$c_Sts_bir, 

3 328 89k ? PLIT (2, msgnot looped), 

: 954 ha msb$m_data_fld); 

; 336 369 END en ! End of INCR i 
Bo wa, ne 
; 323 B On successful loopback, disconnect Link to mirror. 

> 2 4 

: 961 P 0954 $Q10W (CHAN = .loop_chan, 

: oe8 B22 : FUNC = {oS deaccess OR io$m_synch); 

; 964 03837 Signal success. 

3 966 0359 momSerror (nma$c_sts_suc); 

: 968 0961 END; ! End of mom$nodetest 


-PSECT SPLITS,NOWRT ,NOEXE,2 


aie a OO7C P.AAL: .LONG 28 3 
000000° 00080 -ADDRESS U.3 F 
Hath 8 P.AAM: .LONG : 
0 300 , -ADDRESS BUFSIZ $ 
72 74 20 65 67 61 73 es + 6D 20 74 3 6 O8C P.AAO: .ASCII \Test message transmitted\ 3 
64 6 4 74 69 6D 73 6€ 61 098 F 
008 Oot A4 P.AAN: .LONG 26 3 
9 A8 ADDRESS P.AAO : 
65 72 20 65 67 61 73 73 65 6D 20 74 73 6 4 AC P.AAQ: .ASCII \Test message received\ $ 
64 65 76 69 65 63 ee 3 
8° Cc -BLKB 3 
001 C4 P.AAP: .LONG 1 : 
¥ c8 ADDRESS P.AAQ s 
cf P.AAR: . : 
' eADDRESS MSGNOTLOOPED : 


~PSECT SOWNS,NOEXE ,2 


22 OO1EC ;_NFB 
at -BYTE 34 3 


eS 


a me ee ce me ee me me ce ee ec ee ee ee ee em me ee ee ee ee ee ed ed nd od od od = od 
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mom$nodetest Node Loopback test 


04 


04 
04 


000000006 


000000006 


Vw SPV OVUM 
-—~m on ——OUOMo~Tovorw 


AO achinad 
6E 6 
AE 08 


04 
7E 
00 
000000006 
08 
FC 


i 00000000* 


ou 
8 a 
08 90205 

i 


OFFC 00000 
9E 00002 
SE 00009 
9E 00010 
9E Bogle 
SE B36 
ge 90035 
pF Soo 1 
00 000 
DO 00039 
91 00040 
1 +4 94 
D 0049 
D Opes 
11 000 
43 OOSA 
? Ft 
$n 90068 

D 00 $f 
fF 7 
D4 7 
cE 07 
DD 00078 
dD 7D 
FB 7F 

SE 


oO 
m 


SoOoooooooeeo 
Brome 


-$ 
=$ 


3 
ep- 
ep- 


- 
bd 


~m 
wo 


1 
1 


Bho 312398 Pah SAlS FER Mtn shcSnomrest.032:4°%* ca} 


Kas 


3619990 


Ny LSeOWoOoCOoO— 
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P.AAL 
SCODES,NOWRT,2 

MOMSNODETEST. Save R2,R3,R4,R5,R6,R7,R8B,R9,-; 0760 
MOM MAPLOOPERR, R11 : 
MOMSDEBUG MSG, R10 ; 
MOM_SIGLOOPERR, R9 : 
SYSSQ10W, RB ; 
NFBDSC+4, ; 
VERSION, R6 F 
-144(SP), SP : 

13$, (FP : 0770 
NFBDSC+4, NFB : 0807 
MOM$GQ_ENTITY_BUF_DSC+4, R1 > 0811 
MOMSGB_ENTITY CODE, #1 : 0808 
momsca ENTITY BUF _DSC, ENT_LEN : 0810 
433685571, 4 (NFB) : 0812 
2$ : 0808 
#2, ENT_LEN : 0816 
(RI) ERT ADDR ; 0817 
#33619 86 4 (NFB) : 0818 
#104, P2dSc : 0820 
P2NAMBUF, P2DSC+4 : 0821 
SP 3; 0822 
P2DSC : 
-(SP) 3 

#i, -(SP) + 0824 
ENT_ADDR : 08 3 
ENT_LEN ; 08 
6, “MOMSBUILD_P2 ; 
nowsca ACPQIO~BUF _DSC : 0832 
P2DS6 3 
NFBDSC ; 

a, MOMSNETACP_Qi0 ; 

; 0841 


S<AOMSAB_SERVICE_DATA*<SVDSGK_PCNO_LPL*137>~ 
>+9>, R 


4 3 
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v04- mom$nodetest Node loopback test 4-Sep- 244: DISKSVMSMASTER: CMOM. SRC JMOMTEST .B32;1 (8) 
vou 580 Snode de loopb 1e-$ep 138 98 1? uF 3 C § 32:1°9 j 

14 E9 OOOA BLBC = STATUS, 3$ ; 

02 000000006 3 i iB cwPL ppronteg ores p #2 : 

as p B1 OVL #2, VERSION : 

A V » BU 3 

00EO 6 01 BA MOVAB 1¢Ro) BUF SIZ 

rx. p 09 BC 3$: MOVL #1, VERSION : 

00EO C6 0 D BF MOVL RO, BUFSIZ ; 

78 AE 9F 000C4 48: PUSHAB RCVDSC 3 

74 «OA i 0 C7 PUSHAB SNDDSC : 

00E0 F OOOCA PUSHAB BUFSIZ ; 

00000000v Q F OOCE CALLS #3, MOMSGETBUFFER : 

D D OVL RO, STATUS ; 

1 E 9008 LBS STATUS, 5$ ; 

34 DD 00008 PUSHL #36 : 

000000006 8F pp 9000 PUSHL #MOMS$_ALPBFOVF : 

04 A? 9F ODODE PUSHAB P.AAM : 

7E 97 BF 9A OO0ES MOVZBL #151, ~(SP) : 

7E 10 CE OOOEA MNEGL #16, =(SP) : 

69 05 FB OO0ED CALLS #5, MOM_SIGLOOPERR : 

00000000v 00 00 FB OOOFO SS: CALLS #0, MOM~BLDLOOPNFB 

00000000v 00 00 FB O00F7 CALLS #0, MOM~OPENLINK : 

66 DD OOOFE PUSHL VERS ; 

00000000* 00 DD 00100 PUSHL $<MOMSAB_SERVICE_DATA#<SVDSGK_PCNO_LPD#137>~i 

78 AE 9F 00106 PUSHAB SNDDSC ; 

00000600v 00 03 FB 00109 CALLS #3, MOMSINITBUFFER ; 

54 00000000* 00 pO 00110 MOVL S<MOMSAB_SERVICE_DATA+<SVDSGK_PCNO_LPC#137>-5 

53 01 CE 90117 MNEGL #1, [ : 

00C3 31 OO11A BRW 10$ F 

7E 7C 00110 6$: CLRQ ss = (SP) ; 

7E 7C OO11F CLRQ = =(SP) ; 

EO AD DD 00121 PUSHL  SNDDSC ; 

E4 AD Dp 0124 PUSHL SNDDSC+4 ; 

7E 7C 00127 CLRQ.  =(SP) ; 

F8 AD 9F 00129 PUSHAB XMIT_IOSB : 

30 DD 0012C PUSHL #4 F 

FED8 C6 DD 001 5 PUSHL LOOP_CHAN ; 

7E D4 001 CLRL. = ; 

68 o¢ FB 001 CALLS #12, SYS$Q10W F 

3¢ 0 dO 00137 MOVL RO, STATUS ; 

1 52 5 013A BLBC STATUS, 7$ ; 

52 f8 OA § 13D MOVZWL XMIT 16s STATUS : 

0€ 5 f 141 BLBC  STATOS, 7$ : 

4 =A? SF 00144 PUSHAB P.AAN 3 

4 AE DD 00147 PUSHL  SNDDSC ; 

7C AE DD O014A PUSHL SNDDSC+4 ; 

DD 00140 PUSHL @# ; 

6A 4 FB OO14F CALLS #4, MOMSDEBUG_MSG ; 

7E 00000000* 00 3 ¢3 00152 7s: SUBL 1 ss NSAB_ SERVICE _DATA+<SVDSGK_PCNO_LPC#~ : 

F8 AD QF OO1SA PUSHAB XMIT_I0SB ; 

52 DD 00150 PUSHL STAT ; 

7E 13 CE 0015F MNEGL #19, =(SP) ; 

68 9 FB 16 CALLS #4, MOM_MAPLOOPERR : 

E 7C 0016 CLRO 0s = §P) : 


Sete Se ee Fe Ge Ge Ge Ge Se Ge Se Ge Se ee Ge Fe Se Se Se ee Ge se Se Sete Seas 


Nn 3 
TEST MOM Loop Test Routines 16-Sep-1984 02:10: VAX-11 Bliss-32 V4.0-74 Page 33 
Oe 880 aentnadetect Node Loopback test 13-808- 1382 96:10:08 DISKSVMEHASTER-CMOM SRCSMOMTEST 83251 ° Bs 
7E 7C 00167 CLRQ = = (SP) ; 
E8 AD DD 00169 PUSHL RCVDSC : 
EC AD BD 16¢ PUSHL RCVDSC+4 : 
7E 7C OO16F CLRQ.  =(SP) : 
FO AD 9F 00171 PUSHAB RY _10SB : 
31 DD 00174 PUSHL #4 : 
FEDS 6 DD 00176 PUSHL LOOP_CHAN : 
E 04 2A CLAL agp) : 
68 F 17¢ CALLS #12, SYS$Qi0W : 
2 DO 0017F MOVL RO STATUS : 
4 1 BLBC STATUS, 8$ + 0915 
é a AD 3¢ 001 MOV2WL RCV_I0SB, STATUS : 
fF2 oA f 189 8$ MOVZWL RCV 108852, RCV_SIZE + 0917 
0€ 5 : 18D BLBC STATUS, 9 : 0921 
44 A? SF 001 PUSHAB P.AAP + 0925 
7C AE 0D 0019 PUSHL RCVDSC : 0924 
EC AD DD 00196 PUSHL RCVDSC+4 : 0923 
DD 00199 PUSHL @# : 0922 
6A i Fe 0198 CALLS #4, MOMSDEBUG_MSG : 
7E 00000000* 00 3 ¢3 OO19E 98 SUBL 1 4 -<<MOMSAB, SERVICE _DATA+<SVDSGK_PCNO_LPC#= : 0932 
FO AD 9F OO1A6 PUSHAB RCV_I : 0929 
3¢ DD 001A9 PUSHL STATU : 0930 
7E 13 CE 001AB MNEGL #19, =(SP : 0929 
68 04 FB OO1AE CALLS #4, MOM_MAPLOOPERR : 
66 DD 001B1 PUSHL VERSION + 0940 
EC AD DD 00183 PUSHL RCVDSC+4 : 0939 
55 bp 0186 PUSHL RCV SIZE : 0938 
7E EO AD 7D 00188 MOVQ SNDBSC, -(SP) : 0936 
00000000v 00 05 FB O18¢ CALLS #5, MOMSCHKBUFFER : 
1A 20 E8 OO1C BLBS__—-RO, : 
00E4 C6 00000000* 00 53 a3 00166 SUBW3 1, <<MOMSAB_SERVICE_DATA+<SVD$GK_PCNO_LPC*= ; 0942 
1$7>>+9>, MSGNOTLOOPED : 
20 DD 00100 PUSHL #32 + 0943 
E D4 001D2 CLRL = = (SP) : 
4C A? OF O14 PUSHAB P.AAR > 0945 
7E 01 CE 00107 MNEGL #1, =(SP) + 0944 
7E Ic CE O01DA MNEGL #26, -(SP) > 0943 
69 0 FB 01DD CALLS #5, MOM_SIGLOOPERK F 
02 53 54 F2 OO1E0 108: AOBLSS R4, I, : 0879 
05 11 OO1E4 BRB 12§ F 
FF 34 31 166 11$:  BRW 6$ ; 
7E 7C OO1E9 128: CLRQ =(SP) : 0955 
7E 7C O1EB CLRQ = = (SP) ; 
7E 7C OO1ED CLRQ = = (SP) : 
7E 7C OieF CLRQ  =(SP) : 
7E pd 1F1 CLRL = = (SP) ; 
7E 0234 BF 3¢ Ours MOVZ2WL #564, =(SP) ; 
FEDS c6 DD OO1F PUSHL LOOP. CHAN ; 
E 04 OO1FC CLRL 5 : 
68 C FB fe CALLS #12, SYS$QIOW : 
1 DD 0020 PUSHL # : 0959 
000000006 00 1 FB 3 CALLS #1, MOMSERROR ; 
04 A RET ; 0961 
00 ° 13$: -WORD Save nothing ; 0770 
7E D CLRL 30s = (SP) : 
5E DD F PUSHL SP : 


a 


88 40 2 
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04-680 


; Routine Size: 


MOM Loop Test Routines 
mom$nodetest Node Loopback test 


046 =A 


00000000v 06 08 i 


541 bytes, Routine Base: $CODES + 04A6 


ifge 


it 


ep- 
ep- 


1382 93:22:98 = SNdinGmaS fens chon’ sae 


mova 
CALLS 
RET 


4 (AP) 
4 MOMS TES THANDLER 


Smontest. B32; ° 


° 


28 


eS eS LS LL ee eS 
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MOMTEST oop Test Routine 14-Sep-19 X-11 etl s-32 V e 35 
v04- seatte Ttbut ter Initialize loopback test buffer ; b-sen-1944 et 48 SKSVMSMASTER: chon OCR SMOMTEST. B32;1 39 3 
; 970 962 1 ZSBITL ‘mom$initbuffer Initialize loopback test buffer’ 

3 48 t4 } GLOBAL ROUTINE mom$initbuffer (bufdsc, data, type) : NOVALUE = 

; 378 965 1 !+4 

> 974 8308 3 FUNCTIONAL DESCRIPTION: 

3: 979 0967 1! 

: 976 0968 1} This routine initializes a transmit buffer for active Logp 

: 977 0969 1! functions based on the type of loopback (phase 2, phase 3, MOP) 
3 144) od! | and based on the type of data (ones, zeros, mixed). 

: 380 484 1 | FORMAL PARAMETERS: 

; 981 973 1 

; 98 0974 1 BUF DSC peeress of erect reser of buffer to be initialized. 
:; 98 0975 1! DATA Type of data to u 

: 984 0976 1! TYPE Loopback function: type code. 

: #985 0977 1: 

; 986 0978 1 i- 

; «987 0979 1 

; 988 0980 BEGIN 

; 989 0981 

: 990 098 P 

>; 991 098 bufdsc : REF VECTOR; 

3 044 0984 

; 99 0985 ' 

: 994 0986 ! Macro to add a ‘‘forward’’ header to an NI Loop message. 

: 995 0987 ! 

; 996 098 MACRO 

; 997 0989 $mom_forward_msg (msg_ptr, 

; «998 0990 T_addr_svd, 

: .999 0991 node_addr_svd, 

: 1000 099 node_name_svd, 

3; 1001 M 099 ni_hardw_svd) = 

3 1306 M 0994 BEGIN 

3; 100 m 0995 § CHSWCHAR_A (mop$c_ er. forward, msg_ptr); 

: 1004 M 0996 CHSWCHAR_A (0, msg_ptr);~ 

; 1005 M 0997 

: 1006 Mm 0998 XIF ad ZNULL (ni_addr_svd) 

3; 1007 mM 0999 XTH 

: 1008 ™ 1000 TF -mom$ab_service data Cni_addr_svd, svd$v_msg_param] THEN 

: 1009 mM 1001 msg_ptr = CHSMOV 
: Iona I 1008 mom$ab service data Cni_addr_svd, svd$t_string], 
3; 101 M 1 -msg_ptr 

3 1Oig M 1004 ELSE 

; 191 ‘4 1902 2FI 

3 1014 a1 54 BEGIN 

3; 1015 m1 mom$get_node_id (node_addr_svd, 

3 19i¢ Mm 1008 node_name_ svd, 

3; 101 Mm 1009 ni_hardw_Svd); 

3; 1018 Mm 1010 onsg. ptr = mom$k en gPpettas © 

3 1019 M 1011 g_ptr = tt pir 

: 1950 41 \ rt a “ptr = OVE a 

3; 1021 M101 momSab_ service_data (node_addr_svd, 

: 10 ¢ m 1014 Svd$l- “param, 

: 10 m 1015 -msg_ptr); 

3 1024 41 16 END; 

3; 1025 m 101 END 

: 1026 1018 z; 
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uffer Initialize Loopback test buffer 1o-88=13Re 95:10:98 DT EKSUMGHASTER CMON SRCIMOMTEST.B32:0% (33 


re: 
HE 


yO, Test Routin 


OCAL 
loopdata : BYTE, 
ptr; 


ptr = .bufdsc C1); 
} Fill in the function code according to the type of loop operation. 
ae -type OF 
mom$c_loop_phase2J: 
BEGIN 


CHSWCHAR_A (5, ptr); 
CHSWCHARTA (0, ptr); 


OOOCOCC9ROCO 


FP ae 
PDP ASSIS SB BS BE BE AAAI ANNI NIGP PPUNPIPUNGIVIYD — 


Cmom$c_loop_phase3): 
CHSWCHAR A (0, ptr); 


cnents jeep maps 
IF NOT sponse) .gervice, (laps Cmom$v_ni_circ] THEN 
1 ag AA (mop$_fct_ald, ptr) 


i The circuit arene looped is an NI. The format if these loop 
! messages is completely different because the looping is done 
by the NIs UNA device. 


MMMM MAUI & 
WN — SO OONOULSWN $0 OONOUS WN S$ OVDODNOULS WN O00) 


BEGIN 
tr = CHSFILL (0, 2 tr): 
a 


-p : ty count 
ELECT .mom$ab_service_da Csvd$gk_pcno_lph, svd$l_param] OF 


nma$c_ loop. full ,nma$c_loop_xmitd: 


FUN SO OONAUE WN O OONOAUE WN (OO OONOUE WIN OO 


The loop message will be sent to the assist NI 
address first. From there, it must be forwarded 
to the target. Add ‘‘forward’’ messege header to 


SESE 
DOOOOCOCOS COCO OCSCSSSOSOSOSOSOSOOSOOOCOOOOOCCOCOOCOO 


ee ee ee ee ee i ee ee 
ee ee ee ee en eee ee ee YS SY 


Pee ee oe ee tt ee eee eet 


5 
: 
8 loop message so the assist node will send the 
4 message on to the target node. 
069 P 1061 $mom_forward_msg (ptr, svd$gk_pcno_pha, 
870 P $6 svd$gk_pcno_lpn, 
71 P 106 svd$gk_pcno_$ina 
or6 bee svd$gk_p no-$nh5 ; 
: Or; oe Crma$c_loop_ full ,nma$c_loop_recvd: 
2; Urs : 
: 1075 06? ! From the target node, the message must be forwarded to 
: O76 ° ' the receive assist node. Add the ‘‘forward’’ header to 
: oon 6 accomplish this. 
: 1079 P 1071 $mom_forward_msg (ptr, svd$gk_pcno_lpa, 
3 44 P O76 svd$gk_pcno_lan, 
: 1081 P 107 svd$gk_pcno_$lnn 
; oes Bre svd$gk-pcno-$lah5; 
3 75 CALWAYS): 


4 
panbtel tnt ter Yritiolize loopback test buffer 1$-Se0-1984 95:10:96 ST EKSUMGMASTER SEACH SACIMOMTEST.832:1°%" (3) v04 


76 4 : 
18 : The nessage must be returned to this node, Add a 

! “forviard’’ header to the loop message which contains my 
own NI address. 


3g 
30 


jojlojelo) 
~~ 


SESE 


Smom_forward_msg (ptr,, 
svd$gk_pcno_iho, 
svd$gk_pcno_$hna 
svd$gk_pcno_$hhw5; 


jofeleo) 
Ooo 


vuvuv 


ee ce ce ee ee a ce ce ee ce ce ee ee ed ee ed 


——DO0000O 
—OOONOUS 


TES; 


' 
Now add the ‘'reply’’ message function and receipt number. 
CHSWCHAR_A (mop$c_nilooy reply, ptr); 


CHSWCHAR_A (0, gtr : 
hy CHSFILL (0, 2, .ptr), ! Receipt number 


oo 
SPSSES 


oO 
oOO00000 


co 
WO OOnOulwn—o 


; Select type of data to put in buffer. 
SELECTONEU .data OF 


SESSSRERSS 


OWONOUSWN—OOOnN 


nma$c_loop_mix]: loopdata = %B8'01010101'; 
sew Fp ae asf loopdata = XX'FF'; 
poets. Loop, ser : loopdata = 0; 


oooo 


Initialize the buffer. 

CHSFILL (.loopdata 
-bufdsc C 
ptr); 

END; ! End of mom$initbuffer 


Pe Se Se Se Se Ge Se Se Os Ge Ge Se Ss SH Oe HSH Se Oe Oe OF Se SH Se SESH Se Se Se Se Se Ss esestes 
ee ee a ce a ee ee ee ee ae ee ee a ed ee ed oe ed 


=POPIPINPINININIPININIPIPINIPININININIW ES BPP LLLP PPL PPE 
= 
m 
“ 
. 
m 
=z 
o 
. 


ai a ak ed td 2d od od = 2 od 


at et ss 2 Ls 


O1FC 00000 .ENTRY MOMSINITBUFFER, Save R2,R3,R4.R5,R6.R7.R8  ; 0963 
58 000000006 00 9€ 000 : MOVAB MOMSGET_NODE_ID, R8 : 
57 4 aC D MOVL BUF C,7R? > 1024 
53 4 a? Dd MOVL (R7), PTR ; 
50 0c ac D 11 MOVL _—* TYPE, RO + 1028 
02 D1 13 CMPL =soRO, # : 1030 
if 1 BNEQ 1$ ow 
83 9 1A MOVB #5, ‘(PTR)+ : 1037 
5 11 1D BRB 2$ + 1053 
01 0 D| 1F 1$: cHPL RO. rt : 1036 
3 $4 é 2%: CLRB (PTR) + 1037 
0 p § 3$: TSTL R0 > 1039 
D A BNEQ ss : 
08 000000006 00 1 €£ C BBS #1, MOMSGL_SERVICE_FLAGS, 6% > 1041 


6) - (.ptr - .bufdse (1)), 


04-600 


63 00000000* 


63 00000000* 


OF Loop Test Routines 
a4 buffer Initialize loopback test buffer 


1 
1 
63 1g 90 . 
mf a 9 
B4 ¢ 
56 00000000" 00 00 E 
5 13 0004 
02 g 01 O47 
83 46 bee 
BA 00000000 06 E9 O004F 
00 06 28 00056 
3 11 0005 
90000 006 &F DD 0006 
00000006 F DD 00066 
000000006 $F DD 0006 
68 3 FB 000 ; 
83 000400AA BF DO 0007 
83 00000000" 00 B80 0007¢ 
$6 5 00083 
= © 00085 
02 56 Di Ouys? 
7 14 OOOBA 
83 W280 9008¢ 
0A 00000000" 6° €9 0008F 
00 06 28 000% 
3 11 0009 
000000006 if DD OOOA 
900000006 BF DD O00AG 
00000006 st DD OOOA 
68 3 FB 0082 
83 000400aa BF 0 0008 
83 00000000" 00 B80 000BC 
83 2 BO 
900000006 BF DD 
90000006 BF DD 
00 6 3 4 
eS 000400AA_ BF 09 
0000000* 00 B 
3 01 09 
$ 85 By 
i 3 
F 9 
zB 
a 
5 


10$: 


pal9be Bian i? 


VAX-11 Bliss-32 V4.0-74 
DISKSVMSMASTER: (MOM. SRC JMOMTEST.B32; fag 
othe (PTR) 


(PTR) + 
<<ROMSAD. SERVICE, YATA+<SVD$GK_PCNO_LPH*137>~; 
rs 
, #2 : 

a8" (PT : 
<HONGA SE’VICE _DATA+<SVD$GK_PCNO _PHAS137>~3 
ig <<MOM$AB_SERVICE_DATA+<SVD$GK_PCNO PAS: 
?>>49>, (PTR) ; 


FSVDSGK. PCNO_$LNH 


#SVD‘,GK-PCNO-SLNA 
BW PCNO-LPN 

#3, MOMSGET RODE_1D 

Wes 22514, (PTR)+ 

< OM OMSAG | SERVICE _DATA+<SVDSGK_PCNO_ LPN#137>=; 
? ? 

R6 

11$ 

R6, #2 

118 

#2, 


(PTR)+ 
<<ROMSAB SERVICE _DATA+<SVD$GK_PCNO_ LPA®137>~3 


"3 <<MOMSAB_SERVICE_DATA+<SVD$GK_PCNO_ LPAee; 
p>9>, (PTR) 


bs vOSGK _PCNO_S$LAH 
#SVD$GK~PCNO~SLNN 
#SVDSGK EPC PCNO~LAN 
T_NODE_ID 
Phones FPTRIe 
S<MOMSAB SE SERVICE _DATA+<SVD$GK_PCNO_ LAN#137>=3 


; 1084 


W0e~000 sansinitbuticr initietise leepbeck test buffer i$-se Bob 18Bs 3:48:99 BERKSUMGMASTERS CMON  ShCSMOMTEST.032:1°%° 


1 oo ‘2 

50 04 a C 19 15$: hoot} PTR. 4(87), RO 3 1108 

50 51 6E o9 se 113 OvCS #0, (SP), LOOPDATA, RO, (PTR) ; 1109 
04 00119 RET $1111 


; Routine Size: 282 bytes, Routine Base: SCODE$ + 06C3 
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° 
. 
2 
. 
° 
. 
a 
° 
a 
8 
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. 
o 
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. 
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6 
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V mom$chkbuffer Check loopback test buffer 14-Sep-1984 12:44: DISKSVMSMASTER: CMOM.SRCJMOMTEST.B32;1 (10) 
311 11 1 XSBTTL ‘mom$chkbuffer Check Loopback test buffer’ : 
3 i} 1} , GLOBAL ROUTINE mom$chkbuffer (sndlen, sndadr, rcvlen, rcvadr, type) = ‘ 
314 11 1 S++ ‘ 
: 11 11 1 ! FUNCTIONAL DESCRIPTION: ; 
: 11 11 1! ‘ 
: 11 11 1! ‘ 
3 1% 1 ! FORMAL PARAMETERS: : 
711 11 1! SNDLEN Length of transmitted data. : 
311 11 , SNDADR Address of transmitted data. ’ 
3 33 11 1! RCVLEN Length of recetyed data. ‘ 
eb 11 , RCVADR Address of received data. ‘ 
: 1 1% ! TYPE Loopback function type code. . 
3 11 11 1 !e- ; 
3 11 11 1 : 
>; 1138 11 BEGIN : 
3; 1139 11 ’ 
3 1140 11 LOCAL : 
3: 1141 11 rcvptr, ° 
3 1326 11 sndptr, : 
3 1146 11 skip_count, ° 
3 11446 11 status; ° 
: 1145 11 : 
s Bg 11 rcvptr = .rcvadr; ° 
3 114 1138 sndptr = .sndadr + 1; ‘ 
3; 1148 1139 ; 
3 1149 1140 SELECTU .type OF : 
3; 1150 1141 ET : 
3 1151 1136 mom$c_loop_phase ° 
3 1126 114 oman 2008 prese a: 
3 11 1144 IF CHSRTHAR_A (rcvptr) NEQU 1 THEN 
3 1154 1145 RETURN false; 
3; 1155 1146 
: 1156 1147 Cmom$c_loop_phase2]: 
3s 1157 1148 BEGIN 
; 1158 1149 CHSRCHAR_A (sndptr); 
3 1159 1150 CHSRCHAR_A (rcvptr); 
; 1160 1151 END; 
3: 1161 1136 
3 1106 1387 Cmom$c_loop_mop): 
: 1198 1332 i IF NOT snonSgl_service_ flags Cmom$v_ni_circ] THEN 
: 1166 1187 4 IF CHSRCHAR (.rcvptr) NEQU mop$_fct_ald 
3; 116 1158 4 
3 1168 1159 4 CHSRCHAR (.rcvptr) NEQU mop$_fct_pld THEN 
3; 1169 1160 4 RETURN false; 
3 1170 1161 4 CHSRCHAR_A (rcvptr); 
3 1171 1106 4 EN 
: 1176 116 ELSE 
3 117 1164 } : 
3 Te 1186 The message was looped on the NI, so the format is different. 
: 117 1167 4 BEGIN 
; 1199 1168 4 ~ + = .(.rcvptr)<0,16> + 2; 


33 
—s 
32 
ef 
or 
zo 
xo 
co 
Cc 
a) 
AD 
aw 
ee 


-sndlen = (.sndptr - .sndadr), 
-sndptr) THEN 
RETURN true 


RETURN false; 


3 117 11 4 rcvptr = .rcvptr + .skip_count; 

3 1179 1196 4 IF PASRCHAR U revpti) nEau mop$c_niloop_reply THEN 

8 1181 1178 ? RETURN false; 

: 11 1173 4 i For now, ignore the receipt number. So, skip the ‘reply’ 
: 1188 1128 2 } function ebee and the receipe number; sy 
: 1185 1176 4 revptr = .rcvptr + 4; 

3 HE 1193 4 sndptr = *sndedr + .skip_count + 4; 

3; 1187 1178 3 

; 1188 117 END; 

3 1 9 1} 9 TES; 

: 1191 1 IF CHSEQL ( .revlen = (.rcvptr = .rcvadr), 

s 1138 11 < -rcvptr . 

3 119 1184 

3 1194 1185 

3 1195 11 $ 

3 1196 11 €L 

: 1197 1188 

3: 1198 1189 

3 1199 1199 1 


4 | ; 
Routines 1b-se -1984 02:10: VAX-11 Bliss-32 V4.0-74 P 1 
Check loopback test buffer 1 ~3007 138% 95:10:98 age 04 
! End of mom$chkbuf fer 

| 


000¢ 00000 .ENTRY MOMSCHKBUFFER, Save R2,R3 3 1113 
53 10 AC DO 00002 MOVL CVADR, RCVPT : 1137 
50 08 AC 01 €1 00006 ADDL3 #1, SNDADR, SNDPTR + 1138 
51 14 AC b9 0008 MOVL TYPE, R1 : 1140 
gb 13 OOO0F BEQL '1$ + 1142 
02 1 01 00011 CMPL RI, #2 : 
1A 0014 BGTRU 1$ : 
52 9a 00 18 MOVZBL (RCVPTR)+, R2 + 1144 
01 91 0001 CMPBR2, #1 ; 
SA 1 9901¢ BNEQ 6$ ; 
02 51 D1 OOO1E 1$: CMPL = RI, #2 + 1147 
04 12 00021 BNEQ 2$ ; 
g D6 000 INCL  SNDPTR > 1149 
3 D6 000 INCL _RCVPTR : 1139 
1 05 00027 2s: TSTL = RI : 115 
F 12 00029 BNEG 5$ ; 
OE 000000006 09 1 ’ 8 BBS #1, MOMSGL_SERVICE_FLAGS, 4$ : 1155 
1 3 CMPB Es CRC VPTR), #24 : 11 
5 13 BEQL 5$ 3 
19 3 9 CMPB = (RCVPTR), #25 : 1159 
: 12 BNEQ 6$ ; 
D 3$: INCL RCVPTR : 1161 
19 11 F BRB 5 > 1155 
51 . 5 41 4$: MOVZWL (RCVPTR), SKIP_COUNT : 1168 
35 ¢ ; t} tte: Seip COURS RCVPTR 2 1169 
01 z $3 4A MPB ss (RCVPTR), #1 : 1190 
9 1 4D BNEQ : 
53 oF 4F ADDL2 #4, RCVPTR : 1176 
1 08 ac C€ 52 ADDL2 SNDADR, R1 : 117 


TEST Test Routine 1b-se Sep-1 VAX-11 BLi $o5e v4.0-7 P 4 
Moe 880 a Bw Check loopback test buffer 1 et 7 95: 12: 98 DISKSVMSMASTER: CMOM. She MOMTEST.832;1 i (165 
50 04 | 9 6 MOV 4(R1) SNDPTR : 
52 10 AC 53 ¢ A 5$: SUBL3 RCVPTR, RCVADR, R2 + 1182 
5 0c At ¢ F ADDL REVLEN. R : 
51 08 Ac 560 ¢ 63 SUBL3 SNDPTR. SNDADR, R1 + 1184 
51 04 A g0 ADDL2 SNDLEN, R1 ; 
51 00 63 53 D O6¢ CMPCS R2, (RCVPTR), #0, R1, (SNDPTR) + 1182 
oe 12 072 BNEQ = 6$ ; 
50 1 Bo O74 MOVL #1, RO + 1188 
50 b4 0078 6$ CLRL ~— RO + 1190 
4 QO07A RET : 


; Routine Size: 123 bytes, Routine Base: S$CUDE$ + 0700 


K 4 
ern. Bs "itteeste send/receive buffers fo 12-800-1382 95:19:98 DLSKSVMGMASTERSEMOM: SRCSMOMTEST 8325927 (143 


ZSBTTL ,noatae tout for Ai Locase send/receive buffers for loopback’ 
GLOBAL ROUTINE mom$getbuffer (reqsiz, rbfdsc, sbfdsc) = 


3g 
3a 


'¢ 


+ 
FUNCTIONAL DESCRIPTION: 
This routine will dynamically allocate buffers for loopback. 


If there is not enough virtual memory then this routine will 
return an error and set the maximum size into the descriptors. 


FORMAL PARAMETERS: 


a ts ts 


SSELESLINA 


REQSIZ Address of longword size of buffer to allocate. 
RBFDSC Address of receive buffer descriptor. 
SBF DSC Address of send buffer descriptor. 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 J 
BEGIN 
MAP 
rbfdsc : REF VECTOR, 
sbfdsc : REF VECTOR; 
LOCAL 
status; 


ROR NIPINIPIPINIPNIPNIPYPIPINININININIPIPININININY 
SSLEFAESNS 


MRNPNNINININININ) 2 2 3 


mom$\_vmbufsize = 0; ! No buffer allocated 
rbfdsc ft} = mom$t_testrcvbuf; 
sbfdsc 1 


Determine if we need a buffer bigger then the default buffer. 


= mom$ab_nice_xmit_buf; 


WWwn 


WN SO CONOUESWN “OOO UNRUH O 


if “growls LEQU mom$k_maxmsgsize THEN 
BEGIN 


aes sve) 


rbfdsc (0) = ..reqsiz; 
sbfdsc (0) = ..reqsiz; 
3 aa true 


mom$l_vmbufsize = ..reqsiz * 2; ! Set up allocation size 
Attempt to get the necessary size buffer. 
status = LIBSGET_VM (mom$l_vmbufsize, mom$l_vm_buf_adr); 
IF .status THEN 

BEGIN 


rbfdsc fii = .mom$l_vm_buf_adr; 
sbfdsc [1] = 


oo? at et ot ot hh) 
MEW —OOeOn 


-mom$\~vm~buf_adr + (.mom$l_vmbufsize / 2); 


-reqsiz = mom$k_defbufsize; 


rbfdsc Fo} = ..reqsiz; 


sbfdsc = ..reqsiz; 


a a a ak a a ak a a a a a a ak ak ak ed a ot a 2 = 8 = 2 = 8 


PROPIPIPOPOPINIPININININININIAPINIPYIPIPINIPIPPoforofnofrororny» 


a a cc a a a ee ce ee eh ee Be eB ee ee ec a me ee ce ce ee ee ee ee ee ee ee ee ee ed ed ee ed 


POPIPIPIPINIMINIPONIMPIPIPINIPINIPININIPINPY 


BEKELE S&F FWWWWWIWIWMIUIWIWINIDINININININININID 2 2 OS 


PPD & SE 
NOUS —OOONO 


28 


ee ee ee cre ee ee ce ae re me ce ee ee ee ee ed ee ee ed a Be a ed wd ed = wd od od = 
FN a i a i a a a a a i NN EN NS ee 


Sete Se Se Se Se Se Ge Se Se Se Se Fee Se Se Ge Ge Ge Fe Ge Fe Ge Ge Fee Ge Se Se Se Se Geese Se Se Se Se Se Se ese Be Se teas ee Sete Se Se ee Se Geese Se Se teas 


Test Routine 1b-5¢ -1984 VAX-11 BLi sree V4.0-74 att 
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; 1389 138 RETURN .status 


60 125 END; ! End of mom$getouf fer 


003¢ ENTRY MOMSGETBUFFER, Say R2,R3,R4,R5 : 1192 
55 00000000" 99 se HOVAB.  MOMSL. VMBUF RS ; 
65 D CLRL MOMS VMBYF Site. + 1218 
5 : ag B0 MOVL  RBFDST, R + 1219 
06 =A A : F MOVAB MOM$T fESTRCVBUF, 4(R3) : 
5 ¢ aC p 14 MOVL F R + 1220 
04 A2 000000006 0 . 18 MOVAS MOMSAB-NICE_XMIT_BUF, 4(R2) : 
00000080 8F 4 BC pi 920 CPL aReQS! SIZ, #128 + 1224 
68 04 BC 00 09 A OVL  @REQSIZ, (R3) + 1226 
$2 4 BC DO 00 MOVL @REQSIZ. (R2) + 1227 
5 01 v0 00 MOVL ‘ : 1228 
65 04 BC 01 % 00% 1$ ASHL #1, @REQSIZ MOMSL _VMBUF SIZE : 1231 
04 AS 9F 00038 PUSHAB MOMSL_VM_BUF_A + 1235 
55 DD 0003€ PUSHL R : 
000000006 09 02 FB 90049 CALLS #2, LIBSGET_ vM ; 
1 50 E9 00047 BLBC Os SS + 1237 
54 04 AS DO 0004A MOVL MOMSL VM_BUF_ADR, R4 + 1239 
046 A3 54 D0 OO04E MOVL. R4, 4TR ; 
51 65 02 C7 0005 DIVL3 #2. MOMSL_VMBUFSIZE, R1 + 1240 
04 A2 51 54 C1 00056 ADDL3 R4. R1, 4TR2) : 
05 11 00058 BRB : 1237 
04 BC 82 8F 9A 0005D 28: MOVZBL #130, @REQSIZ + 1243 
63 04 BC 00 00062 3$: MOVL  @REQSIZ, (R3) : 1245 
62 04 BC DO 00066 MOVL @REQSIZ. (R2) + 1246 
04 0006A RET + 1250 


; Routine Size: 107 bytes, Routine Base: S$CODE$ + 0858 


33 


kt a a a at tk tt tt a ss SS = 9 vs 9 9 as SS) SS Ls 2s 4) as | 2 4 ss 
eee ee ee ee ee ee ee ee fe 4 FO OS ee eo . .  .  e . O . O. . Oe OO 


Bete Se Se Se Se Se See Se Se Se Ve Se Se Bets FCe Ge Ge Ge Oe Se Se Ge Se Se Fe Se Se Fee Se Se eee SeSe ee Se Sees Se Sees Se Vseasas 


3; Routine Size: 


a a kk kd td dd 
02 09 09 C9 COCO COCO NINN“ 


~ 
oo 
~o 


4 
mons teopbut Bag | a buffers 16 attr 95:10:98 Mt 


— tt — — —  —  — — — as ss 2 9 2 a 1 a a 


VAX-1 s-32 V4. 
SK$ 

ZSBTTL ‘mom$freebuffer Deallocate buffers’ 

GLOBAL ROUTINE mom$freebuffer = 

lee 


; FUNCTIONAL DESCRIPTION: 


This routine deallocates buffers if any were allocated by the 
MOMSGETBUFFER routine. 


' 

' 

' 

i IMPLICIT INPUTS: ' 
' 

' 


MOMSL_VMBUFSIZE contains the size of the allocated buffers. 
: If none were allocated then the value will be zero. 
= 


BEGIN 


LOCAL 
status; 


IF .mom$l_vmbufsize NEQ 0 T 
status = LIBSFREE_VM Aah _vmbufsize, mom$l_vm_buf_adr); 
mom$\_vmbufsize = 0; ! No buffer allocated 


RETURN .status 


= FPOROPORoNoOnoNonononony 2 3 


END; ! End of mom$freebuffer 
0004 90009 ENTRY MOMSFREEBUE FER, Save R2 
52 00000000' 00 9 9000 MOVAB OMSL FSIZE, R2 
62 05 00009 TSTL MOMSL ~YMBUFSIZE 
0c 13 00008 BEQL 
04 A2 9F 00000 PUSHAB MOMSL_VM_BUF_ADR 
52 DD 00010 PUSHL R 
000000006 00 02 FB 0012 CALLS LIBSFREE_VM 
62 D4 00019 1$: CLRL mone _VMBUF STZE 
04 0001B RET 


28 bytes, Routine Base: S$CODE$ + 08C3 


18 
vNeh TER: CMO she MOMTEST .B32; 39 
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; 1291 79 ZSBTTL_ ‘mom_opent ink Open a Link to Mirror’ 
38 » ROUTINE mom_openlink : NOVALUE = 
94 § tee 
95 ? } FUNCTIONAL DESCRIPTION: 
3 5 i This routine opens a Link to the loopback mirror and 
38 § } verifies the connect data to determine the maximum test message size. 
00 8 1 i-- 
83 $6 BEGIN 
88 34 
04 3 
05 9 mbx_maxmsg : INITIAL ($9) ! Maximum mailbox message size 
“4 ae mbx_bufquo : INITIAL ( 565; ! Maximum pool for mailbox messages 
08 .] 
09 3 BYTE], ! Buffer to build mailbox name 
10 98 FAO List for mailbox name 
11 ! Descriptor of mailbox name buffer 
\¢ b ' 10 status block 
1 status, ' Return status 
14 ptr, ! General pointer 
ctr, ' General counter 
getets WORD, ! Error detail word 
ag. 
text, 
code : BYTE, ' Error status code 
loop_descr : VECTOR (2) ! Loop message length descriptor 
mirror_descr : VECTOR (2); ! Mirror size descriptor 


OWN 
chnchar : BBLOCK Cdib$k_length]; ! Channel characteristics 


1 
: Establish a channel to looper object 
status = LIBSASN, WTH MBX 


mom$gq_netnamdsc , 
mbx_maxmsg, ; 
mbx_bufquo, 

' 


WAAAAI NA AAAI AAI 
ALAA ORORORORIFOTORORORD —-— —— 


! Device name 

el mailbox message size 
I 

| 


WO CONOULSWN—OV0ONOU 


we 


aximum buffer quota for mailbox 1/0 
/O0 channel for mirror 
a 


Loop_chan 
ilbox channel for mirror 


,O0p_moxC an 


WANA 


i] 
: Map and signal any errors 


et wy = 


teeter 


mom_maplooperr (nma$c_sts_mcf, .status, 0, .mom$ab_service_data Csvd$gk_pcno_lpc, svd$l_param]); 
status = salu ! Create a logical Link to mirror 
HAN = .loop_chan, ! Use network channel 
UNC = io$ access, ! A unction 
SB = iosb, ' Status here 
= nfbdsc ! This is the NFB descriptor 


a oy a ha at a aaa aa a ak a kk ak ed at at 2 2 ot ot 8 2 tt et SS 2 as a 2 2 a 
NOUS WN OO 


a ee ee ea ee ee ee ee em ee a a ed a nd ed ed ed od dd 


HANAN IAI AIA IIIA AI AAI IAAI AAI 
PORIPIPINIPONOPOPIPIPININININOPONIPIPUPUNINONIPOPOPIPONONOTOROPOPOPOPUPNONONONOPOPPONUPUND 2 

os 

o 

o 

> 
333 
ooooe 
wx x x 
ares 
“ove 
ong 
e@ 
e<c<cc 
—mmrrn 
O-AOO 
Te ben eee 
cooo 
- DDD 
err 
rr 
ws OS 

.* s+ & 


AWAAAAIIPIPRIPIPIPINPINININIDD 9 2? OO OS" OOOOOOOCOCOS: 


vuvuvvvU 


FSESEE EE 


C 
F 
I 
Pp 


5 
MOM Loop Test Routines 16-5e 1984 02:10: VAX=11 Bliss-32 V4.0-74 Page 47 
mon_cpent ink Open a Link to Mirror 1 $0071 38 95:19:98 DL SKSVMGHASTERSCMOM SRC IMOMTEST .832;1 7 145 


Ss 


> 1348 1338 ); : | 
: 1349 1 ' ; 1 
: } iI } : : Map and signal any errors : , 
71 : 1340 2 mom_maplooperr (nma$c_sts_mcf, status, iosb, ; 
; : rt : re -mom$ab_service_data Lsvd$gk_pcno_lpc, svd$l_param]); : 4 
: ! 35 . : “8 status = Seley ! Read the connect data : } 
: 1 39 P 1345 CHAN = .loop_mbxchan,  ! Channel for mailbox :] 
; 1358 Pj 4g FUNC = io$_readvblk, :] 
; 1359 P 134 10SB = ios : | 
; 1360 P 1346 P1 = mbx_buffer, ! Read data into mailbox buffer ;] 
> 1361 P 1349 P2 = mbx"size :] 
. % 66 1350 ); 5 1 
3 3 1351 ' ' $1 
3 1365 : 26 : Map and signal any errors : : 
; } 66 1354 mom_maplooperr (nma$c_sts_mcf, pete S iosb, : 1 
3 iE +t 132? ; -mom$ab_service_data [svd$gk_pcno_lpc, svd$l_param]); ° | 
; 1393 1387 Validate the mailbox message and its returned optional data. ‘ | 
130 1359 2 status = .(mbx_buffer)<0,16,0>; 31 
3 1378 1399 ptr = mbx_buffer + 4; ; | 
> 1374 1 66 IF .status NEQ msg$_confirm THEN ! It must be a connect confirm i] 
: 1375 136 GIN : 
: 1376 1364 flag = 0; 3 
; 1377 1365 code = nmaSc_sts_mcf; ! Assume connect failure code . 1 
; 1378 1366 text = 0; : I 
: th 1367 : 1 
3; 1380 1308 SELECTONE .status OF : 1 
: 1381 1369 SET : 1 
; 1386 1370 Cmsg$_abort : 1 
3 138 1371 omsg$_exit): :] 
3 1384 1378 detail = nma$c_ncedtl_abo; ! Abort by object : 1 
; 1385 137 : 1 
; 1386 1374 Cmsg$_discon]: : 1 
: Et 132? detail = nma$c_ncedtl_dis; ! Disconnect by object : ! 
; 1389 1377 Cmsg$_netshut): ; 1 
; 1330 : 4 detail = mma$c_ncedtl_nsd; ! Node shut down : : 
; 1382 1380 [msg$_nodeinac 31 
3 139 3 1 »msg$_pathlostJ: 71 
; 1 me 1 § detail = nma$c_ncedtl_die; ! Node or object failed : ! 
:1 98 13 4 Cmsg$_rejecti: 3 
; ! id 5 detail = nma$c_ncedtl_rjc; ! Reject by object : ' 
; 1399 1 Cmsg$_thirdparty): 31 
; 126t } 3 detail = nma$c_ncedtl_abm; ! Abort by management : : 
; 1406 1 4 Cmsg$_timeout): 3:1 
3 1ehz ' 33 detail = nma$c_ncedtl_nrs; ! No response from object : } 


TEST MOM Loop Test Routines 16-50 $Sep-1984 02:1 VAX-11 8 $e3e 8 
vos mom _opentink Open a tink to Mirror =300 71387 95: 12: vs DISK KSVMGR TER: chon” she MOMTEST.B32; "3 ge 44 


: 1405 1 ? 3 COTHERWISE): 

; re 1 4 BEGIN 

; 140 1395 4 detail = -1; 

>; 1408 1396 4 flag = .flag OR msb$m_msg_fld; 

3; 1409 1397 4 text = .status; 

: 1410 1398 H 

3; 1411 1399 

3 Vals 1400 TES; 

3; 141 1401 : 

> 1414 1006 Signal error 

3: 1415 14 

: 1318 180 leet descr F93 = 2; 

3; 161 1405 Loop_descer = momSab_ service data Csvd$gk_pcno_lpc wo param]; 
: 1418 e+ mom_Siglooperr (.code, .detail, loop_descr, .text, .f flag) 

3: 1419 140 

: 1420 1408 END; 

: 1421 1409 °: 

3 14 ¢ 1410 ctr = .iosb Cios$w_count] - 4; ! Play games to look at the data 

: 142 1411 ctr = .ctr = CHSRCRAR (.ptr) = 1; Skip over the device name 

3 12 ¢ Vlg ptr = .ptr + CHSRCHAR (.ptr) + 1; i Set pointer to optional data 
> 1426 1414 ! 

3 Hit 4 1012 Verify optional data if Phase 3 mirror. (Ignore it if Phase 2.) 

s 1°65 tt IF .version EQL mom$c_loop_phase3 THEN 

3 1431 1419 4 IF NOT (CHSRCHAR {, ptr) EQL 2) ! Verify optional data is 2 bytes long 
: PR 1420 3 OR .(.ptr + 1)<0,16,0> LSS 

3 143 1421 3 .mom$ab_ service. data Csvd$gk_pcno_lpl, svd$l param] ! And mirror buffer size is greater 
3 1434 14 ; 3 'than requested loop size 
: 1435 14 THEN 

3 14 1424 4 BEGIN 

3: 1437 1425 4 mirror_descr (0) = 2; ! Set Be | descriptor of mirror 

3: 1438 1358 4 mirror_descr (1) = .ptr + 1; | Maximum buffer size 

3 1439 1427 4 mom_siglooperr oe _sts_pva 

: 1440 1428 4 nma$c_pcno_l tpl, 

3 1441 1069 4 mirror_descr 

3 106 1430 4 mom$_mirbfov 

3 1446 1431 4 msb$m_msg_ fld5; ! Signal error 

3 1444 1O38 3 END; 

3 1445 14 END; 

3 1446 1434 

3 1447 1435 RETURN 

3 1448 1638 

3 1449 14 END; 


-PSECT SOWNS,NOEXE,2 
2 
64 3 


56 3 
16 


00306 .BLKB 
00000040 0021 NBX_MAXRSG: ; 
00000100 00214 MBX_BUF QUO: 
«LONG ¢ 
00218 CHNCHAR: .BLKB 


VO4-600 


MOM Loop Test Routines 
mom_openlink Open a Link to Mirror 


000000006 


00000000* 


00000000* 


00000000* 


7E 


»PSECT 


03FC 00000 MOM_OPENLINK: 
oW RD 


NNO VIN OMUOOOO PVwTwoooo 
MMMM OOM Oonloooce 


A6é 


E 
E 


NOWVNANOSCITW VIO NOOOOTOFO 
= J FSUIWRNMLONOODMIOS COM Ts" Of°rmmn 


ooo VIO™"OOOCONOINNIOOO VCIoO"O CTC OO 


mon VODMFSoo*onoooowmon 


1386 $Si12:99 OAL SteR Mtn sacSmonrest.032:1°% 


SCODES,NOWRT, 2 

Save R2,R3,R4,R5,R6,R7,RB,RO 

MOM_SIGLOOPERR, R9 

SYSSQIOW, R 

MOM_MAPLOOPERR, R7 

LOOP_MBXCHAN, R6 
SP 


R 
LOOP_CHAN 
max. BUF QUO 


MAXMSG 
mOMSGa NETNAMDSC 
° LIBSASNUTH OX 
<<MOMSAB_ SERVICE DATA+<SVDSGK_PCNO_LPC#137>~; 


= (SP) 


#21, =(SP) 
Ma aie nach 


s 
LOOP_CHAN 

#2, Syssalou 
<<MOMSAB_SERVICE_DATA#<SVDSGK_PCNO_LPC#137>~; 


STATUS 

#21 2 -(SP) 

#4, ‘MOM_MAPLOOPERR 
-(SP) 

-(SP) 

WE 

MBX _ BUFFER 

-(SP) 

10SB 

4 

Loe MBX CHAN 

#ie, fyesorew 
<<ROMSAB_SERVICE_DATA+<SVDSGK_PCNO_LPC*137>~; 


10SB 
STATUS 
#21, -(SP) 


as 


1280 


1318 


1328 


1336 


1341 
1340 


1350 


1355 
1354 


$3 


et 2 3 SS ss — Ss Ss = 0s Ss 9 2s Ss Ss st Ss os 
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3 | 


04 FB A CALLS #4, MOM_MAPLOOPERR : 3} 
34 A6 3C QOOA MOVZWL MBX_BUFFER, STATUS ; 1359 :] 
8 A A V MBX“BUFFER+4, PTR : 136 :] 
3 p A CMPL STATUS, #49 +1 31 
Se pd 0006 fret ftke + 1364 by 
55 15 Re B MNEGB #31 CODE + 1365 3] 
2 D4 00087 CLRL TEXT +4 31 
30 bt B9 CMPL. TATUS, #48 : 1 ; | 
1 BC BEQL : :1 
34 b} ti CPL TATUS, #52 : s | 
50 OF 06 C3 18 mov #14, DETAIL ; 1372 : 
33 33 D1 § 2s CMPL TATUS, #51 + 1374 31 
0 if OCB BNEQ $ >. 31 
50 0D & b9¢D MOVW #13, DETAIL : 1375 31 
40 1 D BRB 10$ : 31 
3B 53 D1 00002 3$ CMPL STATUS, #59 : 1377 31 
05 if 000 BNEQ 4$ : 1 
50 0B B 9007 MOVW #11, DETAIL : 1378 :] 
: 11 OOODA BRB 10$ ; : 1 
36 53 D1 O00DC 4$: CMPL STATUS, #54 : 1380 21 
05 13 OO0DF BEQL $ : : 1 
3D 53 D1 000E1 CMPL STATUS, #61 : 3 1 
05 if O0E4 BNEQ 6$ : :] 
50 ¢ B O0E6 5$ MOVW #12, DETAIL : 1382 :] 
11 OO0E BRB 10 ; : 1 
38 3 D1 OO0EB 6S: CMPL TATUS, #56 : 1384 
05 12 OO0E BNEG : 
50 05 80 000F MOVW #5, DETAIL : 1385 
1 11 OO0F BRB : 
39 53 D1 000F5 7$ CMPL TATUS, #57 : 1387 
05 if 00F8 BNEQ : 
50 OF B SOFA MOVW #15, DETAIL : 1388 
13 11 000FD BRB ; 
3A 3 D1 OOOFF 8S: CMPL TATUS, #58 : 1390 
5 12 00102 BNEQ ; 
50 OA B80 001 MOVW #10, DETAIL > 1391 
09 11 00107 BRB : 
50 1 AE 00109 9$ MNEGW #1, DETAIL : 1395 
54 04 88 0010C BISB2 FLAG : 1396 
51 3 D0 0010F MOVL STATUS, TEXT : 1397 
08 AE 98 p 1 ; 10$:  MOVL #2 LOOP _DESCR + 1404 
C AE 00000000* E 0011 MOVAB <<MOMSAB™SERVICE_DATA+<SVDSGK_PCNO_LPC*137>=: 1405 
>+9>, LOOP_DESCRF4 3 
12 8B 0011 PUSHR #*M<R1,R4> + 1406 
10 AE 9F 001 PUSHAB LOOP_DESCR : 
7E 3 C 001 VZWL DETAIL, -(SP) ; 
ze A 001 $ VZBL CODE =($ : 
05 FB 001 CALLS. @# ROM SIGLOOPERR F 
0 12 AE 35 12C 118: MOVZWL 10$B+2,~CT + 1410 
4 f 1 SUBL2 #4, CTR ; 
1 ° A 001 HOVZBL (Pfr), RI > 1411 
53 g3 1 SUBL 1 gk R3 ; 
FF a3 E 0013A MOVAB «=1(R } CTR ; 
01 A142 GE 0013 MOVAB 1(R1)CPTRI, PTR + 1412 


ee = 
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v04 mom _opentink Open a tink to Mirror 10-80-1382 95:10:06 DISKSVMSMASTER: CMOM. She MOMTEST.B32;1 429 13) vO4 
01 0124 ¢6 D1 143 CMPL VERSION, #1 3 1417 
5 12 0014 BNE $ : 
02 ? 14A CPB (PIR). #2 ; 1419 
00000000* 00 01 =A2 10 6 ED O014F CMPZV 6° #16, 1(PTR), <<MOMSAB_SERVICE_DATAt= : 1421 
1 ; 159 acco ¢ proms. PCNO_ LPL #137>>4+9>~ : 
6E 0 00 138 12$: MOVL #2, MIRROR_DESCR + 1425 
04 AE 01 Ad 9E 001 MOVAB 1(R2), MIRROR_DESCR+4 : 14 6 
0 DD 001 5 PUSHL #4 : 14 
000000006 8F DD 001 PUSHL #MOM$_MIRBFOVF ; 
AE 9F 001 PUSHAB mIRR R_DESCR : 
faa ERE FT. gp : 
fe Os FB 0017 CALLS ase MOM_SIGLOOPERR ; 
04 00178 138 RET t 1437 


; Routine Size: 377 bytes, Routine Base: SCODES + O8DF 


nes a ss a a ss et ss ss ss ss tn 4 2 as a es 


TEST MOM L Leg Test Routines bse X-11 s-32 V 52 
yOe~500 mom_bld copnie Build a Network Control Block : 30075 38e 93: 19: 9 Mis SK$V nen TERS CMOM. OSRCIMOMTEST. 832; 39 (14) 
3; 1451 1038 1 ZSBTTL ‘mom_bldloopnfb Build a Network Control Block’ 

3 146 14 1 ROUTINE mom_bldloopnfb : NOVALUE = 

. 18} 

: 14 5 144g 1 FUNCTIONAL DESCRIPTION: 

: 146 5 1444 1/3 This routine builds the NFB for the loopback mirror 
; 1458 1445 1! from information left around by the parse. 

; 1459 er | 1! 

: 1460 1447 1 i= 

3; 1461 1068 1 

3 1296 144 BEGIN 

MTR Baw 

: 1698 1436 mom$gb_option_byte: BBLOCK (1); 

: 1267 1454 LOCAL 

MB Wg te 

; 1290 1489 node_addr: 

£10} 1289 5 3 

: 1478 1460 ¢ | Initialize the NFB_BUFFER descriptor 

: 1475 1468 nfbdsc £03 = nfb_bufsize; 

3 1o78 1ee7 n fbdsc = nfb_buffer; 

; Pt | 1002 Obtain the node spec and strip trailing colons 

: 1480 1467 iF .mom$gb engtity-¢ code de Eat mom$c ate often 

3; 1481 1468 ptr = CHSMOV ee entity fds Tse 

3 re rs 14 yang -f" iy ty_buf_ sc 1 

3 et 1470 -nfbdse 1 

: 103s ie EGIN 

> 1486 1298 mon$ag entity ,bu buf_dse (1])<0,16>; 

3 He 1 . Vere Sraec’ CEtasra = 4... B 

> 1489 P 1476 OUTBUF = Afbdsc, 

3; 1490 147 PRMLST = node_addr); 

3 1491 1978 tr = .ptr<0,16> + .Afbdse (1); 

Wes Ug, Be 

: 149% 1481 Obtain the access control 

; 123 Fr if “mom$ab_ option_byte Cnma$v_opt_acc] THEN ! Is there access control in 
: 128 1¢ 5 ? IF “poor dec CO] NEQ 0 THEN ! If not, use other access ctl 
: 1500 14 4 CHSWCHAR_A a ptr); ! Put it in standard form 
: 1391 14 4 ptr = CHSMOVE .userdsc fl. 

3 15 $ 14 4 rs a ° 

: 136 149) 

; 1308 1498 4 IF -passworddsc NEQ 0 THEN ! A password?? 

; 1309 1494 3 CHSWCHAR_A (° ', ptr); 


$3 


atk at at = so SS = = ss SS Us ss SS SS SS SS Vs 2s SS SS SS Ls 2 2s SS ss SS YS 


Bliss-32 V 
SMASTER: con. she MOMTEST.B32;1 28 425 


$3 


H 5 
y0e~00 age sein bella a Network Control Block 12 12-8681 98¢ 952 48 DISK tymehA 


-PSECT SPLITS,NOWRT,NOEXE ,2 


57 55 21 0Q00D4 P.AAT: ty haa 3 
00000003 00008 P.AAS: .LONG 3 s 
00000000° 0000C ADDRESS P.AAT 3 


~-EXTRN SYSSFAOL 

-PSECT SCODES,NOWRT,2 
OOFC 00000 MOM_BLDLOOPNFB: 

WORD 


; 1508 1495 tr = CHSMOVE (.passworddsc [0], 7] 
; 1509 1496 F -bastworddsc ES , :] 
: 1510 14 : 7] 
se : 
3; 151 1500 4 IF .accountdsc NEQ 0 THEN ! AN account?? ‘ 1 
: 1514 1501 BEGIN : | 
: 1515 1 3 CHSWCHAR_A (' “ ptr) : | 
3 Y 1 1 ptr = CHSMOVE accountdse £93. ; 1 
3; 151 1504 oo ana ° | 
: 151 1505 :p : 1 
; } 1 } ; END; ‘ | 
: 1521 1508 4 CHSWCHAR_A ('''', ptr); ! End the access control spec :] 
1388 1509 END; * : 
ae oe : 
3 1 5 ; \§ } Copy the object connect specification to the end ; | 
3 i : aia IF .version EQL mom$c_loop ogees THEN :] 
; 1528 1515 ptr = CHSMOVE ( .Ob ess dsc 93. i] 
: 1529 1316 -9b ject Sdsc 2] 
; 1530 151 : 1 
: 1531 1518 2 ELSE : | 
3 15 ¢ 1519 ptr = CHSMOVE ( -ob ect19dsc £02, 23 
3 15 1520 -ob paerecet : 1 
Ae 1B - : 
3 12 12 § nfbdsc (0) = .ptr - .nfbdsc C1]; ! Save length of NFB : | 
; 1538 1525 1 END; 3 | 
3 1 
: 1 
s 1 
31 
3 1 
3 1 
3 1 
3:1 
a 1 
3 1 
3 1 
s 1 
31 
3: 1 


. Save R2,R3,R4,R5,R6,R7 > 1439 
7 00 900000 9E 002 MOVAB P.AA : 
6 i MOV NFBDSC+4, RO : 
E 1 SUBL ; 
as F 9A 0001 MOVZBL #110 ; 1463 
; 0 RR OT Ge . 
1 itd . 8 fs 4 CMPB ROMS cB “ENTITY<C CODE. a > 1467 
11 A BNEQ = 1 : 
50 6 p C MOVL. NFBDSC+4, RO : 1470 
61 000000006 F MOVC3 MOMSGO_ENTITY_BUF_DSC, (R1), (RO) : 
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VO4-600 


; Routine Size: 227 bytes, Routine Base: S$CODES + 0A58 


04 AE 53 0 7 MOVL 3, PTR ; 
D B BRB : 146 
6E g1 ¢ 1$ MOVZWL (R1), NODE_ADDR : 14 
: D 0004 PUSHL SP + 147 
FC AG OOF 0004 PUSHAB NFBDSC : 
0c AE F 0004 PUSHAB PTR : 
3 PD 0004 PUSHL 7 : 
000000006 a 04 re 4A CALLS #4, SYSSFAOL = 
06 AE § 5 ADDL3 NFBOSC+4, RO, PTR : 
000000006 ; A 28 ist MOM$GB_OPTION_BYTE + 1483 
51 E4 AG p : MOVL SERDSC, R1 ; 1485 
06 BE 22 9 MOVB #34, @PTR + 1487 
04 AE D 6C INCL PTR : 
50 eB A p 6f MOVL_  USERDSC+4, RO + 1489 
04 BE 60 31 0 : MOVC3) R1, (RO), a@PTR + 1490 
04 AE 3D 007 MOVL 3, PTR : 
51 F4 Ab 00 9076 MOVE PASSWORDDSC, R1 + 1492 
04 BE - 20 90 a082 Move #32, @PTR ; 1494 
50 F8 AS D 00 MOVL.  PASSWORDDSC+4, RO + 1496 
06 BE 60 31 - 08 moves fe » aPTR ; 1497 
51 EC Ab D 0096 3$ MOVL § ACCOUNTDSC, R1 : 1500 
141 9A BEQL 4 : 
seg on 06 AE b& 000A a ae : 
50 FO AG 09 OOA MOVL. ACCOUNTDSC+4, RO + 1504 
04 BE 60 31 OA MOVC3 R1, (RO), aPTR : 1505 
04 AE 3 00 OOOAC MOVL R3. P : 
04 BE : ce 30 9080 4$ nove 3h, aPTR ; 1508 
01 0194 6 bf 0087 5$ CPL VERSION, #1 ; 1514 
50 FF58 es 6 BE MOVL  OBJECT25DSC+4, RO : 1516 
04 BE 60 FF54 C7 2 C3 Moves ECT SDSC, (RO), @PTR ; 1517 
50 FF7C "5 p OOCC 6$: MOVL.  OBJECTI9DSC+4, RO : 1520 
04 BE 60 FF78 cf 9001 MOVC3 JECTI9DSC, (RO), aPTR : 1521 
04 AE 3 00 00008 7s: MOVL. 3, PTR : 
FC AG 04 AE 66 f o90¢ SUBL3 NFBDSC+4, PTR, NFBDSC : 1533 
4 O00€ RET : 15 


pewetereretererereees wv YY YY 
JVOAFAN=ASSSIFS, 


SNS NNN SIO 


> 


a a a ee DD ee ee ee ce ee ee ee ce ae ee ee ee a ee ed ed ed ed 
MEW —O0OW 


PUPP PUPPA AAA AAAI 
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— 


ZSBTTL ‘mom_maplooperr Map and signal MOM error’ 
ROUTINE mom_maplooperr (code, status, iosb, loop) : NOVALUE= 


lee 
! FUNCTIONAL DESCRIPTION: 


i This routine takes system service status and Q10 IOSB status 
' return codes and converts them to the proper detail codes for 
: the network management status codes of NMASC_STS_MLD and NMASC_STS_MLD. 


' 
' 
' 
' 
' 
‘ 
' 
: The routine will also chonge the status to reflect the appropiate status 
: if the system service or Q10 I0SB status maps such a network management 
; Status code. (NMASC_STS_PRI ,NMASC_STS_RES) 

' 

' 

' 

' 

' 

' 

' 


i FORMAL PARAMETERS: 


code The network management status code to use 

status The system service returned status code to map 

iosb The address of the IOSB,if there is one 

the 10S$W_STATUS status field is mapped if possible 
Loop The number of times yet to loop 


ab 4h 4h 4h ts 


: REF Siosb, 
YTE, 


: WORD, 
: WORD; 


detail : WORD, ! Detail word for MOM_SIGLOOPERR 

! Error text for MOM SIGLOOPERR 
flag, ! Optional flag for MOM_SIGLOOPERR 
count_descr : VECTOR (2); ! Descriptor for LOOP 


' 

! Check system status first if SSS$_NORMAL check I0SB status if there is one. 
! If status is normal return from routine. Otherwise attempt to map status 
! (either system service or IOSB status which ever fails first) into a 
network management error detail or status code. 
I 


IF .status THEN 
IF .iosb NEQA 0 THEN status = .iosb Cios$w_status]; 


IF .status THEN 
RETURN success; 


i at this point the system service or the 1/0 has failed and STATUS 
! contains the system error code. 


i Attempt to map into a network error detail code. 


' 

t 

q 

' 

a 

! 

text = 0: ' Assume no optional text 
flag = ! Assume no optional flags 


ee ee ee ed ee ce ee el ee ce a a ee ee ee ee cee ee ce ee ee ee ee ee el cee ee ee el el el cel cel cl cel cl cel el el el el el cl el el el cel el el el cel el 


ne a aneneremeneneneneet WY OMY A tr art yyyyyyyyy 
Eee SAN NNO wy RENIN IRIN 
~w-4 SHVO APIS SS oo WS Pwd oS Ooo GOH Ud Ooo nn out oes MEW OOOO 


POR IPROPOPOPOPORORONUPORONINNOPINONIPONONOPOPIPOPOPONNNONNNNN 8 a at a tt tt 
= @o 
S = mm 

a 
& = 
= vin z 
“oo 
seaw 
wTeRea¢c 
c 
w 
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1338 SELECT OS -Status OF 

1 5 ss$_abort): 

! ° § detail = nma$c_ncedtl_die; ! Node or object failed 
1 ¢ | Css$ gneoyetnedes 

} l= nma$c _ncedtl_una; ! Unrecognized node name 


5 4 Css$ ynreechebled: 
38 detail = nma$c -ncedtl unr; !' Node unreachable 
one flag = msb$m _M59_ fld; ! Map TEXT to system error 
: 5 sont = ,status; ! Pass system error code 
1 9 : 
1 98 Css$_invlogin): 
: 4 detail = nma$c _ncedtl_acc; ! Access control rejected 
1 601 Css$_nolinks 
; one ss$-remrsrci: 
1 604 detail = nma$c_ncedtl_rsc; !' Network resources 
1 605 flag = msb$m_msg_fid;~ ! Map TEXT to system error 


text = .status; Pass system error code 


0 H 
0 
0 Css$_nosuchobjj: 
detail = nma$c_ncedtl_obj; ! Unrecognized object 
Css$ chirdperty2: 
detail = nma$c_ncedtl_abm; ! Abort by management 


Css$_timeout): 
detail = nma$c_ncedtl_nrs; 


No response from object 


Kesd, Sydounends 
detail = nma$c ncedtl obj; 
goxt = mom$_ncBbfail; 


Sat 8 


MEW OO OONAUE WN "OO ONOULS WO 0@ 


PAXAARAAAAAAAAAAAAAAA A AAA AAO 


MEWUIN —OVONOUSWN “OVOONOULWN—O 


Assume no such object 
Say error in NCB format 


Css$ cein 
SS$_REJECT “'real’’ reason for reject is in second longword of 10SB 
Therefore we must map each possible reason 
SELECTONE . -iosb (4,0,16,0] OF 
net$c_dr_acces ‘ 
net$c_dr_accnt 
detail = nmasc _ncedtl_acc; ! Access control rejected 


Cnet$c_dr_exit]: 
detail = ane _ncedtl_die; ! Node or object failed 


Cnet$c_dr_nobdjj: 


a a ee ee a ee ee ee ee ec ee ee ee ee ee ee ee ce ee ce me me ce ce ee ee ce ee ce ee ee ee ce ee ee ee 


PAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAOAMH 


eee Se Se Ge Se Ge Se Ge Se Ge Ge Se Se Ge Ss Se Ge Ge Fe Fe Se Ge Se FF Ge Fe Se Se Se Fe Ss Oe Se Ge Se Se Ge Se Se Se Se Se Ss Ss Oe Ss Oe Ss Oe Se Sh Se Oe Se ee ee 


ee ee ee ee ee ee ee ee mm ee ee ee ed ed ed nd ed od od 8d dd dd 


SCaREERIIERERERS 
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é ¢ 196 detail = nma$c_ncedtl_obj; ! Unrecognized object 
6 $ H wag ee * ncedtl_bsy; ! Object too busy 
e ba J -bsy; ! 
. Cnet$c_dr_nopat 


SS 


hj: 
detail = role snedid ened ! Unrecognized node name 


$55 


Cnet$c_dr_normal]: 
detail = nma$c_ncedtl_rjc; ! Rejected by object 


Cnet$c_dr_segsiz, 
net$c_dr_orsul: 
detail = nma$c_ncedtl_rsc; ! Network resource 


Cnet$c_dr shut]: 
defail = nma$c_ncedtl_nsd; ! Node shutdown 


tt a 5 i ts tt 


SSSEESSE 


WN" O OODNOVUES AR "OOO VOu 


FO MAN ARAMA AR ee 


ore Cnet$c_dr_third): 
oi detail = nma$c_ncedtl_abm; ! Abort by management 
675 COTHERWISE): 
ore BEGIN 
67 detail = -1; ! No detail 
O78 664 flag = .flag or msb$m_msg_fld; 
6 text = .status; 
680 296 : 
681 66 
ore TES; 
68 END; 

COTHERWISE): 

BEGIN 


Fs ' No detail 
flag = .flag OR msb$m_msg_fld; ! Map TEXT to system error 
text = .status; ! Pass system error code 
END; 
TES; 


SSS 
NOUS WN OOM 


—OOew 


Build the data descriptor of number of messages not looped for MOM_SIGLOOPERR 


count_descr fo} = 2; 
count _descr 1] = loop; 


PESSSSSSSSS 


; Signal error 


LSBeVs 


mom_siglooperr (.code, .detail, count_descr, .text, . flag); 
END; ! End of MOM_MAPLOOPERR 


RRR RRP RRR 


Be Ge Be Ge Ge Ge Ge Ge ee Ge Ge Ge Se ee Ge Ge Se Oo Bo We Bo Se Ge Se So Se So So Ge He Oe So Se Se Se Se So Oe Se Se Se Ge 0 Oe be be Se Se es 
A PIPIMININPIPINININPIPINININI AAAI HANS & BWANA NII AI III 3s 


ec ed ee ee ed ee ee ee el ee ee eel ee el eel el el el el el el cel cl cel eel cel cel cel cel cl cel cel lls cls els cael ceils cls cls cls cells 
w 


ce ee a ad ed ceed ed a a a ee ed ee ee a ed a ed ed ed ee ee ed eed ed ed eed 
ww 


o 


Wn 


001C 00000 MOM_MAPLOOPERR: 
-WORD Save R2,R3,R4 : 1827 


NPA 
Tab 
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V mom_maplooperr Map and signal MOM error -Sep- 244; DISKSVMSMASTER: CMOM.SRCJMOMTEST.B32;1 (15) 
04-600 d signal 19-80-1382 98:12:98 $ ( § 323578 (48 
E 08 C SUBL2 #8, SP ; 
ak 98 AC E g BLBC STATUS, 1$ : 1569 
To ie get RS oe 
08 A o¢ BC ; MOVW @10SB, STATUS : 
5 AC § 1% MOVZWL STATUS, R2 + 1572 
01 5 1 BLBC = R2,, 2 : 
4 OOO1A RET : 
f 1B 2$ CLROQ TEXT : 1580 
2c 8 1 CMPW ORO, #44 + 1585 
i BNEQ 3$ 3 
00 9 BRW 14$ : 
028¢ = sBF ai 3$ CMPW Re. #652 + 1588 
if O2A BNEQ 4 3 
009d 31 000eC BRW 19$ : 
2094 8F 52 Bi 00 F 4$ CMPW Re. #8340 + 1591 
8 is 0 BNEQ 5 3 
51 B 99 MOVW #3, DETAIL > 1593 
18 11 000 BRB 7$ + 1594 
209¢ =o BF 52 81 00038 5$ CMPW 3=saR2, - #8348 : 1598 
é 13 00040 BEQL 12 : 
027c «BF B1 D004¢ CMPW 30 saR2, #636 + 1601 
! 13 0004 BEQL 6S ; 
206C «sa &F 2 Bi 00049 CMPW 3=saR2,- #8300 ; 
09 if} 004 BNEQ &8$ : 
51 04 B80 00050 6$ MOVW #4, DETAIL + 1604 
54 04 p6 0053 7$ MOVL 4&4, FLAG + 1605 
OOAA 31 00056 BRW 28$ + 1606 
2004 BF 52 B1 00059 8s CMPW 3 soaR2, #8356 : 1609 
38 13 0056 BEQL ~=s«16$ : 
207¢ =F : B1 0006 CMPW 3S soaR2, «#8316 + 1612 
0 12 0065 BNEQ 9$ ; 
008 37 00067 BRW 26$ : 
022c «BF B1 0006A 9$ CMPW Re #556 + 1615 
0 if 006F BNEQ 10$ : 
51 OA B 90071 MOVW #10, DETAIL + 1616 
7B 11 00074 BRB 24$ ; 
0144 «BF 52 B1 00076 108: CMPW Re #324 : 1618 
0¢ 12 00078 BNEQ 118 3 
51 7 80 9070 MOVW #7, DETAIL : 1620 
53 000000006 8F 00 00080 MOVL § #MOMS$_NCBFAIL, TEXT > 1621 
D 11 00087 BRB : 1583 
0294 8F 52 8100089 11$:  CMPW  R2, #660 + 1624 
6D 1 BNEQ ; 
50 Oc ac D MOVL 10SB, RO : 1630 
20 04 ¢ 094 ADDL2 #4, RO : 
0 € 00097 MOVZWL (RO), RO : 
22 I O9A CMPW ORO, #34 + 1632 
1 9090 BEQL 3s «12 ; 
24 8} OF CMPW 3S soRO, #36 ; 
3 he BNEQ 13$ ; 
51 8 AG 12$: MOVW #8, DETAIL + 1634 
A7 BRB 29§ : 
26 81 A9 13%: CMPW RO #38 + 1636 
; AC BNEQ 15$ : 
51 ¢ : AE 14$: MOVW aie, DETAIL : 1637 
1 00081 BRB 29 : 


es 
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y00-500 mom_maplooperr Map and signal MOM error 122868718 4 93:10:98 DL SKSVMSMASTER SCHON SRCSMOMTEST .832:1 . «133 

04 i 00083 15$: CMPW RQ #4 : 1639. 
B BNEQ =: 17$ : 

51 e B8 16$: MOVW #7, DETAIL + 1640 
49 BB BRB 29§ : 

20 Q e BD 17$: CMPW 8=séRO, #32 + 1642 
C BNEQ 18$ : 

51 9 8 ¢ MOVW #9, DETAIL : 1643 
F ¢ BRB 29$ : 

27 2 C7 18$: CMPW 3=soéRO, #39 + 1645 
CA BNEQ 208 : 

51 8 CC 19$:  MOVW #2, DETAIL + 1646 
CF BRB 29§ ; 

D D1 20S: TSTL = RO : 1648 
1 D BNEQ 21$ : 

51 5 B0 0000 MOVW #5, DETAIL + 1649 
¢ 11 90 BRB 29$ ; 

01 8} ODA 21$ CMPW RO #1 : 1651 
9° 9000 BEQL 22$ ; 
25 Q Bi OO0DF CMPW RO #37 : 
; if O0E2 BNEQ 23$ : 

51 4 B80 OOOE4 228: mMOVW #4, DETAIL : 1653 
1D 11 000E7 BRB 29$ ; 

03 50 B1 000F9 238 CMPw = séRO, #3 : 1655 
05 12 00G6¢ BNEQ 25$ F 

51 8 BO 000 : MOVW #11, DETAIL + 1656 
13 11 O00F 4s: BRB 29$ ; 

08 50 81 O00F3 25$: CMPW RO aa : 1658 
05 if O0F6 BNEQ 27$ : 

51 OF BO OOOF8 26S: MOVW #15, DETAIL : 1659 
99 11 000FB BRB 29$ ; 

51 1 Ar OOFD 278: MNEGW #1, DETAIL : 1673 

54 04 88 00100 BISB2 #4, FLAG : 1674 

53 32 DO 00103 88: MOVL 2, TEXT : 1675 

6E 0 b0 01 9$: MOVL #2, COUNT_DESCR : 168@ 

04 AE 10 AC E 00109 MOVAB LOOP, COUNT_DESCR+4 : 168 

18 BB 0010 PUSHR #*M<R3,R4> : 1687 
08 AE oF out USHAB COUNT_DESCR : 
7E 51 3¢ 0011 MOVZWL DETAIL, -(SP) : 
7E 06 AC 9A 90116 MOVZBL ODE, - : 
00000000v 00 0S FB OO11A CALLS #5, MOM_SIGLOOPERR F 

04 00121 RET : 1689 


3; Routine Size: 290 bytes, Routine Base: S$CODES + 0838 
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WA.WAILAIAIPO PO PORN 
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ZSBTTL ‘mom_siglooperr Signet Looper errors’ 
ROUTINE mom_siglooperr (code, detail, data, text, flag) : NOVALUE = 


AX-11 Bliss-32_V4.0-74 Page 60 NPA 
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FUNCTIONAL DESCRIPTION: 


This routine builds the message segment block and actually signals 
the error. 


FORMAL PARAMETERS: 


i 

i 

i 

i 

} CODE Code of the status to be signalled. 

: DETAIL Detail to be signalled. 

! DATA Address of the data descriptor. 

! TEXT Code for optional detail error text. 

FLAG Mask for optional flags (uses for MSBSM_MSG_FLD). 
‘ 
i 
! 
i 
i 


IMPLICIT OUTPUTS: 
This routine will build the message segment block in Artosgs  tetematence 
n 


This routine calls MOMS$BLD_REPLY which builds the message 
MOMSAB_NICE_XMIT_BUF. 


SII IIIA AO AOA AAAO 
SOOGCOCOCOCOOCOOOOOOOONOO 


BAL 9 OONOA UNE WIN OOD NAME WIN OO DNAUE WN 0 OONAUE WR OOD ONOU LS Wn 


- 
BEGIN 


MAP 
code : BYTE, 
detail : WORD, 
data : REF VECTOR, 
text : LONG, 

flag : LONG; 


LOCAL 
message_size; 
i] 


Build the message descriptor block in MOM$AB_MSGBLOCK 


OR 
msb$m_det_fld OR 
msb$m_data_fid; 
mom$ab_msgblock Cmsb$b_code] = .code; T Status code 
mom$ab_msgblock ([msb$w_detail] = .detail; ! Detail code 
mom$ab_msgblock (msb$a_data] = .data; ' Count field 
mom$ab_msgblock msb$l_text] = .text; ! Optional error text code 


Call MOMSBLD_REPLY to build the error message 
nom$bld_reply (mom$ab_msgblock, message_size); 
Signal the message 


$signal_msg (mom$ab_nice_xmit_buf, .message_size); 
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END; ! End of mom_siglocoerr 


- 6 = *10: - NP 
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0004 00000 Yer ctmaee * pk 


WO Save R2 3; 1691 
52 000000006 7 2 ity ris AB. MSGBLOCK, R2 ; 
yd 14 =A 2 § f BISL #34, FLAG MOMSAB B MSGBLOCK : 17 
ete AC 1 MOVB CODE nono : 17 
08 A AC B 16 MOVW DETAIL B. re GBLOCK+ 8 : 17 
A AC D 1 MOVL DATA, “hol K+ 24 + 1734 
0c AC D 6 MOVL TEXT HOMSAB” -isearockeds + 1735 
g BF 8B PUSHR #4M<R2,SP> : 1739 
000000006 00 2 FB 0 9 CALLS messher st REPLY me 
gomeges 6) Fb RSS uate Seng gem 0 
000000006 00 03 FB 0003¢ CALLS #3, LIBSSIGNAL F 
04 0004 RET + 1746 


; Routine Size: 70 bytes, Routine Base: S$CODE$ + O0C5D 
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ZSBTTL ‘mom$saveuser NPARSE action routine’ 
GLOBAL ROUTINE mom$saveuser = 


+ 
: FUNCTIONAL DESCRIPTION: 


i This routine builds the descriptor for the USER part of 
! the access control string 


i IMPLICIT INPUTS: 
NPARSE block is pointed by AP and defined in NPARSE macro 


' 

' 

! 

! 

' 

i 

! ROUTINE VALUE: 
' COMPLETION CODE: 

SUCCESS always returned 
' 

' 


i SIDE EFFECTS: 
A descriptor is built in USERDSC 


=PIPIPIPOPONOPUPUNY 2 2 
= 


BEGIN 
$npa_argdef; 
userdsc 9 = .nparse_block proast.tident - 1; 
userdsc [1) = .nparse_block (npa$l_fldptr] + 1; 
RETURN success 
END; ! End of mom$saveuser 
at 00000 eENTRY MOMSSAVEUSER, Save gething 
00 10 Ac 01 ¢ 99002 SUBL 3 #1, 16(NPARSE_BLOCK), USERDSC 
00 14 AC 01 C1 00008 ADDL #1, 20(NPARSE_BLOCK), USERDSC+4 
50 01 00 00014 MOVL #1, RO 
04 00017 RET 


24 bytes, Routine Base: $CODE$ + OCA3 


Routine Size: 


4 -74 p 2 
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VO4-600 


Be Se Se Ge Se Se Se Se He Se Se Ge Ss Ge Se eee Se See Se Se Sete Seeseee 


1794 eae 
1795 1778 #1 
17 1779 «1 
179 1780 1 
1798 1781 1 
1799 17 § 1 
1 17 1 
1801 1784 1 
1808 Pee | 
1 1 ; 1 
1805 1 3 1 
1 17 1 
1 1790 1 
1808 1791 1 
1809 1792 1 
1810 1795 1 
1811 1794 1 
1 \§ 1795 
181 179 
1814 179 
1815 1798 
181 1799 
13 1300 
1818 1801 
1819 180 
1820 180 
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1s -1984 02:10: VAX-11 Bliss-32 V4.0-74 P 3 
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ZSBTTL ‘mom$savepasswrd NPARSE action routine’ 


GLOBAL ROUTINE mom$savepasswrd = 

144 

FUNCTIONAL DESCRIPTION: 

i This routine creates a descriptor for the password persten 
of tne access control string and stores it in PASSWORDDSC 
i IMPLICIT INPUTS: 

} NPARSE block is pointed to by AP and is defined in SNPA_ARGDEF macro 
i COMPLETION CODE: 

SUCCESS returned 

i SIDE EFFECTS: 

Descriptor built in PASSWORDDSC 

low 

BEGIN 

Snpa_argdef; 

passworddsc fo} = .nparse_block prpest fi dene - 1; 
passworddsc [1] = .nparse_block Cnpa$l_fidptr] + 1; 

RETURN success 

END; ! End of MOMSSAVEPASSWRD 


009? 00000 -ENTRY MOMSSAVEPASSWRD, Save nothin 3; 1777 
00000000" 00 10 AC 4 C Bans UBL 3 #1, 16(NPARSE_BLOCK), PASSWORDDSC : 1799 
00000000° 00 14 AC 1 C1 00006 ADOL #1, 20(NPARSE_BLOCK), PASSWORDDSC+4 : 1800 
50 01 00 Be843 MOVL #1, RO 3 1906 
04 00017 RET : 180 

Routine Size: 24 bytes, Routine Base: S$CODE$S + OCBB 
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Routine Size: 24 bytes, Routine Base: S$CODE$ + OCD3 


MOM Loop Test Routines Sep-19 :10: VAX-11 Bliss-32 V 
Vv 580 mom$saveacct NPARSE action routine 1b-se0-1984 95:10:98 Dts SVMSMASTER: chon’ see MOMTEST.832; fa0 
3 1 1 1 ZSBTTL ‘mom$saveacct NPARSE action routine’ 
: : } ; GLOBAL ROUTINE mom$saveacct = 
> 1825 1 1 !+4 
: : § ! ! FUNCTIONAL DESCRIPTION: 
: 1 : 1 1 ' This routine builds a escriptor for the account portion of 
: : : } : H the access control string. 
> 1831 1 ig 1 | IMPLICIT INPUTS: 
: ; } 13 } } NPARSE block is pointed by AP and defined in SNPA_ARGDEF macro 
[4 1 1g 1 | ROUTINE VALUE: 
: 1835 1817 1 ! COMPLETION CODE: 
: : : \8 ! } SUCCESS returned 
:1 1820 1 | SIDE EFFECTS: 
; : 4 ! 1 } ! A descriptor is built in ACCOUNTDSC 
: 1 § BEGIN 
; : § ! 5 S$npa_argdef; 
: 1845 1 $ accountdsc Fo] 5 -nparse_block neest _fldent] - 1; 
: 1g ! : accountdsc -nparse~ “block Cnpa$l—fldptr] + 1; 
; 18 1830 RETURN success 
3: 184 1831 
3; 1850 1832 END; ! End of MOMSSAVEACCT 
09 $008 ~ENTRY rs mag rth Save nothin 
* 00 10 Ac C3 0000 SUBL ZS (NeARSE” BLOCK), ACCOUNTDSC 
00000000" 00 14 46 1 Ci Bee ADDL 1, 20(NPARSE “BLOCK), ACCOUNTDSC+4 
‘REG ge OF: 
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y00~ 800 pentloabhanaior Condition handler 1 ~300 138% 95:19:98 DISKSVMSMAS TER: CMOM. SRC JMOMTEST.B32;1 . (283 v0: 


ZSBTTL pont Lgephendlor Condition handler’ 

GLOBAL ROUTINE mom$loophandler (signal_vec, mechanism) = 

'e¢ 

} FUNCTIONAL DESCRIPTION: 

This routine is a condition handler that performs cleanup 
at the end of Loop operations. <Any buffers that were 
allocated from virtual memory are deallocated. 


FORMAL PARAMETERS: 


MEW —OOONOUL UT 


= 
NOV Ew 


3; Routine Size: 31 bytes, Routine Base: SCODE$S + OCEB 


3 1 1 1 
3 1 1 1 
. 1 1 
3 1 1 1 
3 1 1 1 
3, 5 1 1 
3 1 1 1 
3: 1 1 1 
. 1 1 
3 1 1 1 
q 13ce 
3 1 1845 1 SIGNAL VEC Pointer to the signal vector. 
; | ! 4 } ME CHANTSM Pointer to the mechanism array. 
3 1 1 8 1 !-- 
3 1 184 BEGIN 
3: 1869 1850 
: 1870 1851 MAP 
3; 1871 1926 signal_vec : REF BBLOCK, ! Signal vector argument 
3 : a 1937 mechanism : REF BBLOCK; ! Mechanism vector array pointer 
3 1874 1855 ! 
: : Ne \ 28 : If loop buffers were allocated, deallocate them. 
3 1877 1858 mom$freebuffer (); 
3; 1878 1323 ! 
3; 1879 1860 ! If it was a LOOP with ASSIST command, geass ion the assist channel here. 
; 1880 1861 ! The target channel will be deassigned in either MOMSAUTOHANDLER or 
3 rt 1306 MOMSSERVICEHANDLER. 
3: 1 ; 1864 IF .mom$ab_loop_cib Ccib$l_chan] NEQ 0 THEN 
3 138 1303 SDASSGR (CHAN = .mom$ab_loop_cib Ccib$!_chan)); 
51 1867 RETURN ss$_resignal; ! Always resignal error 
| er 
3; 1888 1869 1 END; ! End of MOMSLOOPHANDLER 
0000 000 eENTRY SLOOPHANDLER, Save nothin > 1834 
FBD1 cr yi O0¢ CALLS #0, ROMSFREEBUFEER . ; 1858 
0 000000006 ) MOVL MOMSAB_LOOP_CIB, RO 3 7 
9 1 0 BEQL 1$ : 
000000006 ? PB i CALLS it YSSDASSGN — 
98 0918 8F 3¢ 19 18: MOVZWL 42428. RO ; 1867 
4 OOO1E RET ; 1869 
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1 ZSBTTL snout tgsthend ler Condition handler’ 
GLOBAL ROUTINE momStesthandier (signal_vec, mechar.ism) = 
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' FUNCTIONAL DESCRIPTION: 

! This routine is the condition handler to force a disconnect of 
the mirror Link on any errors 


fo) 
> i 
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This routine also deallocates any buffers allocated. 
FORMAL PARAMETERS: 
Vv Pointer to the signal vector. 
ME CHANTS Pointer to then mechanism array. 


IMPLICIT INPUTS: 
LOOP _CHAN 


MEA OOOO 


The channel that the connect to the mirror 


} is assumed to have been used. 
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1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 . 
1 BEGIN 
131 
13i¢ signal_vec : REF BBLOCK, ! Signal vector argument 
131? mechanism : REF BBLOCK; ! Mechanism vector array pointer 
1915 CAL 
bay status_code : BBLOCK (4); ! Status code 
Ioi8 status_code = .signal_vec (chf$l_sig_name]; ! Save condition name 
1920 IF .status_code Csts$v_fac_no] EQLU mom$k_fac_code THEN 
13 1 BEGIN 
1% § Deassign the mirror channel. 
19 5 905 SDASSGN (CHAN = .loop_chan); 
1937 sith : If loop buffers were allocated, deallocate them. 
1929 909 mom$freebuffer (); 
19 910 
1931 911 END; 
19 ¢ 4 
Hb a RETURN ss$_resignal; ! Always resignal error 
1935 915 END; ! End of MOMSTESTHANDLER 
000 -ENTRY MOMSTESTHANDLER, Save nothin : 1871 
8 ot A 09 ti MOVL SIGNAL_VEC bb . : 1898 
4 Ad D MOVL  4(RO) stAfus CODE ; 
00000207 =s BF 50 C 1 58 A CMP2V #16, #12, STATUS CODE, #519 ; 1900 
1 2 BNEQ 1$ 3 
00000000' 00 oD 1 PUSHL LOOP_CHAN 3 1905 


wivad st) Sonstesthakilor tsnlicion hendter 1b-§8 85p-]8RE 93:12:95 NAb WRAASPERS NGA she Smomresr.032:4°% cass 
a eT eee = 
0 0918 i is 1$: OVZWL 4 $28, RO ; 1913 


; Routine Size: 45 bytes, Routine Base: S$CODES + ODOA 


thie y Time: 
Lines/CPU Min: 
eg ASe Rade | 138 


oop Test Rous ines 
seat h e handler Condition handler 


1§ } \. 

131 

1 18 if 

1919 0 ELUDOM 


PSECT SUMMARY 
Name Bytes 

SOWNS 52 NOVEC, WRT, 

SPLITS § NOVEC ,NOWRT, 

SCODES 3 NOVEC.NOWRT, 
Library Statistics 

File Total 
$255$DUA28: (MOM. INOML 1813351 194 
$255$DUA28: ( SHRLIBJNMALIBRY : 231 887 
$255$0u SHRLIBJEVCDEF .L 32:1 313 
$255$DUA28: SHRLIBINETT.L 38:1 1279 
$255$DUA28:CSYSLIBILIB.L32:1 18619 

COMMAND QUALIF 


RD ,NOEXE, woenne LCL, REL, CON,NOPIC,A 
OSHR, LCL, REL, CON,NOPIC, 


1Eoseoctgpe 02:10:06 yanedt ties 


=32_ V4.0-7 


~EXTRN LIBSSIGNAL 


Attributes 


RD ;NOEXE ,NO 


RD , 


Symbols 
Loaded 


$ 


IERS 


EXE,NOSHR, LCL, REL, 


Percent 


LIGN(2) 
ALIGNS) 
CON, NOPIC,ALIGN(2) 


ages Processing 
Mapped Time 
21 00:00.1 
47 00:00.2 
15 00:00.1 
63 00:00.3 
1000 00:06.5 


BLISS/CHECK=(FIELD, INITIAL ,OPTIMIZE)/LIS=LIS$:MOMTEST/OBJ=OBJ$:MOMTEST MSRC$:MOMTEST/UPDATE=(ENH$:MOMTEST) 


hy 3385 er 876 data bytes 


257 pages 


: Feontlation Guuslate 


TER: CMON. SRC MOMTEST .B32; ° 9 85 
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